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ZELENA 

ROCENKA 

je stejne jako zelene stranky ca- 
sopisu Amaterske radio venovana 
opet tomu z elektronicke zajmove 
cinnosti, co souvisf nejak s pocitaci. 
Jsou zde prevazne prispevky z mi- 
nuleho rocnfku souteze Mikroprog - 
Mikrokonkurs, a to zejmena ty roz- 
sahlejsi, jejichz publikovani v AR na 
pokracovani by bylo neprakticke. 
Doplhuji je drobnejsi konstrukcni 
i programove vytvory, tentokrat pre- 
vazne na tema "propojenf pocitace 
s tiskarnou”. 

Nebude asi mnoho tech, kteri do 
detailu "okopiruji” obzvlaste ty roz- 
sahle prispevky. Domm'vame se ale, 
ze nenf jedinym ucelem zverejhova- 
nych navodu, aby je nekdo presne 
okopfroval. Mnohem vetsi hodnotu 
map jako zdroj inspirace, nametu, 
dflci'ch resent pro uplne jine ukoly 
a problemy, nebo treba jako "uceb- 
nice”programovanf, ap. 

Hodne radosti a pouceni nad 
letosnf "zeienou rocenkou” vam 
preje vase 

redakce AR 
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Jin Tobola, Oldricha Stibora 63, 739 31 Repiste 

V cele fade pnstroju a jednoduchych zafizem stojime pfed fesemm funkcni a datove klavesnice 
a zobrazovani potfebnych hodnot na sedmisegmentovem displeji. 

Pfedlozene reseni pocita s minimalm technickou podporou. Vzhledem k tomu, ze jsou dostupne 
prekladace ASM48 pro celou radu pocitacu, generovat aplikacni SW pri podpofe zakladnich rutin by nemelo 
delat problem cele fade zajemcu o pouziti v nejruznejsich aplikacich fizeni. Popis bude venovan hlavne 
programovemu vybaveni, ktere tvofi hlavni podporu aplikaci. Proto vypisu textu programu je tfeba venovat 
zvysenou pozornost. 



Popis zapojeni pro 8035 (obr. 1) 

Zobrazovaci jednotka pracuje v multiplex- 
m'm rezimu spolu se sni'manim klavesnice. 
Pocet prvku displeje a klavesnice muze byt 
volen podle aplikace zmenou inicializacnich 
promennych. Segmenty jednotlivych zobra- 
zovacu jsou spojeny paralelne a pripojeny 
na budic segmentu U2 pres omezovaci re- 
zistory 100 Q (75 Q). Muze byt pouzit libo- 
volny budic pro vykonove posileni portu PI 
(8286, 8287, 3212, 3216 apod.). Budice 
cislic jsou tvoreny tranzistory T1 az T8 a ob- 
vodem3212. 


Priklad: 

Pripojeni 8255 pro rozsireni I/O prostoru 
k zapojeni podle obr. 1. Programovani je 
zrejme pri volbe instr. MOVX @ Ro,A. Nesmi 
se v tomto pripade pouzit externi pamet’ dat, 
neni-li blokovana programovym zpusobem 
pres tento port. 

Popis SW (pro 8035 - obr. 1) 

Zakladni programove vybaveni je tvoreno 
tak, ze se da prizpusobit jednoduchou zme¬ 
nou inicializacnich promennych k prislusne- 
mu zapojeni. 


WDISP - Zapis na displej; zapisuje ob- 
sah stradace do dal§i pozice 
na displeji. Pri opakovanbm 
volani automaticky posouva 
zobrazeni na displeji. 

RENTRY - Pravostranny vystup - ukldda 
obsah stradace do prave kraj- 
ni pozice, pritom ostatni zna- 
ky posouva doleva. 

PRINT - Zapisuje pevne uzivatelsky 
definovane zpravy ukoncene 
kodem 00H a ulozene v pa- 
meti programu (ROM) na dis- 
plej. 




CLEAR PRINT 

I I 

FIL L WDISP 


Obr. 3. Struktura 
programoveho vy¬ 
baveni (922-3) 


ECHO RDPAD HOLD DELAY 



KB DIN ENCACC RENTRY 

ECHO - Ceka na stisknuti klavesy 
a jeji vyznam vypise na dis- 


Obr. 2. Pripojeni 
8255 pro rozsireni 
I/O prostoru (922-2) 


plej. Vhodna pro kontrolu dat 
zadavanych z klavesnice. 
RDPADD - Prida nebo vymaze desetin- 
nou tebku za zadanym cislem. 


Klavesnice v aktivnim stavu spina prislus- 
ny nulovy buzeny bit obvodu U3 s bity portu 
P2 (P24 az P27) tak, ze uvadi do log.O 
prislusny bit portu P2, predtim nastaveny na 
log. 1 instrukci OUTL P2,A. Latch U3 (3212) 
zaroven budi prislusnou cislici displeje pres 
spinaci tranzistory T1 az T8. Rezistory v ba- 
zich tranzistoru T1 az T8 jsou v rozsahu 1 az 
2,2 k£2. Zapis do budice cisel (U3) pouziva 
pametovou instrukci MOVX @RO,A. Je mozne 
samozfejme pouzit dekoder 3205, pripojeny 
za latch 3212 (U5), Do takto orientovaneho 
I/O prostoru Ize pripojit obvod 8255 pro jeho 
rozsireni. Doporucuji take porty PI a BUS 
pripojit pres rezistory 10 kQ na 5 V, pokud 
to bude potrebne k definici vychoziho stavu. 
Vnejsi pamet’ programu muze byt tvorena 
dostupnymi pamet’mi PROM-EPROM podle 
rozsahu aplikace. Adresni l&tch 3212 (U5) 
tvori adresu pro pamet’ programu a spolu se 
signalem PSEN dava kod instrukce na sber- 
nici. 



Obr. 4. Kodovanipozdravu ,,AHOJ‘‘ v testo- 
vacim programu (922-4) 


Jadrem programoveho vybaveni je subru- 
tina ,,REFRSH“, ktera je vyvolana preruse- 
nim od casovace a zabezpecuje obsluhu 
displeje v multiplexnim provozu kopirovanim 
registru displeje z pameti RAM mikropocita- 
ce. Zaroven strobuje klavesnici. Vzdy po 
jednom volani zpusobi zobrazeni 1 znaku 
a strobovani 1 radku klavesnice. Osmibitovy 
datovy vzorek v pameti RAM pfedstavuje 
prislusny znak s desetinnou teckou ve tvaru 
(PGFEDCBA), kde (P) je desetinna tecka 
a (A-G) jsou buzene segmenty displeje. 
Tato rutina pouziva banku Rbl a promenne 
LASTKY, CURDIG a FI davaji status z teto 
subrutiny. Zobrazovani probiha automaticky 
prerusovanim od casovace zprava doleva 
az po delku displeje danou NEXTPL. 

Zakladni pouziti rutin 

Funkce jednotlivych rutin: 

KBDIN - Vstup z klavesnice - ceka do- 
kud nebyl prijat z klavesnice 
jeden tlacitkovy vstup a vraci 
se s dekodovanou hodnotou 
ve stradaci. 

CLEAR - Nuluje displej. 

ENCACC - Dekoduje binarni vzorek ve 
stradaci ve vztahu k zobraze¬ 
ni na displeji. Pouziva ACCU 
pro pristup k dekodovaci ta- 
bulce. 


Vhodna pro zadavani desetin- 
nych cisel. 

HOLD - Je vyvolana po dobu stisknuti 
klavesy. Vhodna pro autoin- 
krementy nebo dekrementy 
v zavislosti na stavu klavesni¬ 
ce. 

DELAY - Podprogram pro generovani 
programoveho zpozdeni v za¬ 
vislosti na poctu cyklu REF¬ 
RESH a obsahu stradace 
pred volanim. Vhodny pro bli- 
kani displeje a jine jednodu- 
che casove programove ope- 
race. 

Algoritmus pro snimani klavesnice je utvo- 
ren tak, ze pri stisku klavesy musi probeh- 
nout definovany pocet snimacich cyklu k po- 
tvrzeni skutecneho stisknuti. Je mozne vy- 
hodnotit stisknuti definovane klavesy s funk- 
ci SHIFT nebo CONTROL. Je-li stisknuta 
klavesa dekodovana a potvrzena, je jeji po¬ 
zice vyjadrena ciselnou hodnotou. Tento 
kod je ulozen do pameti na adresu KBDBUF. 
Dekbdovaci rutina potom cte obsah na tetp 
adrese ke zjisteni, ktera klavesa byla stisk¬ 
nuta. 

Vypis programu je dosti komentovan. Vy¬ 
znam jednotlivych promennych, casti pro¬ 
gramu a vazeb je z komentafe patrny. Zav§- 
rem je uveden kratky testovaci program vy- 
volany funkcnimi tlacitky 1 az 4. Tento pro¬ 
gram (resp. programy) zacinaji na ORG 
11 Fh. 














Zapojem 

Jak je zrejme z obr. 5, je sbernice pouzita 
jako vystupni port pro buzeni ciislic (DIGIT) 
v pripade, ze v aplikacich vystacime s vnitr- 
nimi moznostmi mikropocitace. Casti portu 
P2 muzeme pouzit jako expanderove pripo- 
jovacl vodice nebo jako CS pro pfipojeni 
dalSich I/O obvodu na sbernici. Sbernici a PI 
je vhodne pripojit na +5V pres rezistory 
10 kQ. 


Obr. 1. Zapojeni klavesnice a displeje s 8035 (922-1) 


Programova obsluha 

Program se pouzije stejny, jako pro 8035, SEL RBO 
jen sg vypusti v definicnl oblasti registr ban- MOV ACCSA,A 

ky 0 ACCSA a ROSA (uvolnime si registry MOV A,R0 

R4 a R3 pro pouziti). Zaradi se instrukce MOV ROSA,A 

OUTL PDIGIT.A (oznacena # #) v radku MOV R0,#80H 
106 a vypusti se instrukce: MOV A,ACCSA 


MOV X @RQ,A 
MOV A,ROSA 
MOV R0,A 
MOV A,ACCSA 
SEL RBI _ 

(radky 107 az 117). 3 


SxLQAIO 8x KC307 
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0007 D5 
0006 AA 
0009 23F0 
OOOB 62 


OOOC 1A 1 0 

OOOE FA 
00<)F 93 


t )************************************************************************ 

2 7 

3 7 INICIALIZACNI PRIRADENI PRO OEFINICI KONFIGURACE 

4 7 

5 7 ************************************************************************ 


0010 

6 

7 

7 

POIGIT 

EQU 


BUS 

7BUDI CISLICE A STROBUJE RADKY KLAVESNICE 

0008 

6 

PSGMNT 

EQU 


PI 

7BUDI SEGMENTY CI 8 LIC DISPLAY V ZAVISL03TI 00 BUZENE CISLICE 

0009 

9 

10 

11 

PINPUT 

EQU 


P2 

7SNIMA 8TLACEN0U KLAVESU BUZENEHO RADKU 

0000 

7 

POSLOG 

EQU 


00H 7POSITIVNI LOGIKA POUZITYCH PRVKU 

OOFF 

12 
' 13 
14 

NEGLOG 

EQU 

OFFH 

7NEGATIVNI LOGIKA POUZITYCH PRVKU 

OOFF 

7 

CHRPOL 

EQU 


NEGLOG 

7DEF.ZDA VYSTUPNI VODICE JSOU AtTIVNI HI-L0-PDI6IT 

0000 

15 

SEGPOL 

EQU 


POSLOG 

70EF.ZDA VYSTUPNI VODICE JSOU AKTIVNI HI-L0-P3GMNT 

00F0 

16 

17 

18 

INPMSK 

EQU 

OFOH 


7DEF.BITY POUZITE JAKO VSTUPNI 

0008 

7 

CHARNO 

EQU 


8 

7POCET CISLIC DISPLAY (FOCET SEDMISEGMENTOVEK) 

0004 

19 

NROWS 

EQU 


4 

7POCET RADKU KLAVE8NICE(MEN3I NEBO a CHARNO) 

0004 

20 

21 

22 

NCOLS 

EQU 


4 

7MENSI DIMENZE KLAVESNICOVF MATICE 

FFF 0 

TICK 

EQU 


-10H 

7 DETERMINUJE INTERUPT INTERVAL IEFRSH RUTINY 

0004 

23 

DEBNCE 

EQU 


4 

7POCET USPESNYCH SNIMANI KLAVESY KU JEJI DETEKCI 

0000 

24 

25 

26 
27 

blank 

EQU 


OOH 

7KOD MEZEKY DISPLAY (BLANK) 

000F 

7 

ENCMSK 

7 

EQU 


OFH 

7 VYBER KTERE BITY JSOU PLATNE PHI CTENI Z PORTU Pi 


28 t IHiltltHtl'iiiiltlt + iflUrli*********************************************** *********** 

29 7 

30 7 POUZITE REGISTRY BANKY 0 

31 7 

32 7P0INTERY PRO ADRE 8 ACI PAMETI ♦ USCHOVA ACCU A RO PRI POUZITI 8035 


0000 

33 

PNTRO 

EQU 

RO 


0001 

34 

PNTR1 

EQU 

R1 


0003 

35 

ACCSA 

EQU 

R3 

7 POUZITO PRO U3CH0VU AC( U PRI 8035 

0004 

36 

ROSA 

EQU 

R4 

7POUZITO PRO USCHOVU RO PRI 8035 

0007 

37 

38 

39 

40 

41 

42 

43 

NEXTPL 

EQU 

R7 

7UKAZATEL NA3LEDNE DISPl.POSICE PRO ZAPIS 


I ************************************************************************* 

7 

7 POUZITE REGI3TRE BANKY 1 


7 PNTRO 

EQU 

RO 

7(UZ BYLO DEFINOVANO) 


44 

7PNTR1 

EQU 

R1 


0002 

45 

ASAVF 

EQU 

R2 

7DRZI HODNOTU ACCU BEHEK REFRESH RUTINY 

0004 

46 

ROTPAT 

EQU 

R4 

7DRZI VSTUPNI VZOHKU BE7 EM ROTACE PRES CY 

0005 

47 

ROTCNT 

EQU 

R5 

7POCITA BITY PROCHAZEJIfI PRES CY 

0006 

48 

LASTKY 

EQU 

R 6 

7DRZI POSICI P08LEDN1 STLACENE KLAVESY 

0007 

49 

CURDIG 

EQU 

R7 

7DRZI POSICI PRI3TIMO DISPLAY-ZOBRAZ,ZNAKU 


50 

51 

52 

53 

54 


}************************************************************************* 
7 


DATA RAM ALOKACE 


0020 

0021 

55 

NREPTS 

EQU 


32 

7DRZI POCET USPESNYCH SLJMUTI DETEKOVANt KLAVESY 

56 

KEYLOC 

EQU 


33 

7INKREMENTOVANO PRI USP7SNEM 3EJMUTI KLAVESY 

0022 

57 

KBDBUF 

EQU 


34 

7PRENASI POSICI 8 TLACENI KLAVESY Z REFRESH RUTINY 


58 





7DO OSTATNICH SUBROUTIN 

0023 

59 

60 

RDELAY 

7 

EQU 


35 

7NENULOVE PRI FUNKC1 REFRESH RUTINY 

0037 

61 

62 

7 

SEGMAP 

EQU 


(63-CHARNO) 

7BASE DISPLAY REGISTHU V INTERNI RAM 


63 

64 

65 

7 



7 MUZE 

BYT KDEKOLIV V INTERNI PAMETI RAM 

-<• 

|**************************************************************************** 


66 

7 





0000 

O f 
68 
69 

t -S-SSS 

7 

ORG 


OOH 



0000 046B 

70 

71 

7 


JMP 

INIT 

7SKOK NA INICIALIZACNI 7ROCEDURU 

0007 

72 

73 

7 

ORG 


07H 




74 

7 






75 

7TIINT 

TIMER 

INTERUPT 

SUBROUTINA 



76 

77 
7B 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 
' 92 

93 

94 

95 

96 

97 

98 

99 
100 


7 

7 

7 

7 

TIINTl SEL 


CALL ADR 007H PRI PRETECENI CASOVACA 

TIMER TAOY MUZE BYT PREINICIALIZOVANY POOLE POT(EBY UZIVATELE 
ZOE SE PROVEDE OSVEZENl DISPLAY A SNIMANI KLAVESNICE 
VZDY PO JEONE POSICI PRI KAZDEM VOLANI 
RBI 

MOV ASAVE» A 

MOV A,4TICK 

MOV T,A 7 HEINICIALIZACE TIMERO 

7 

f************************************************************************** 

7 

7 VLASTNI UZIVATELSKA INTERUPT RUTINA MUZE BYT ZDF UMISTENA 

7 PRO LIBOVOLNE POUZITI VE VAZBE NA PRERUSENI CA 8 CVACE 

7 

f************************************************************************* 

CALL REFRSH 7VOLANI D1SPLAY/KLAVESNICOVE SUBROUTINY 

7TIRET OBNOVA ACCU PRED NAVRATEM Z REFRESH SUBROUTINY 
TIRETi MOV A»ASAVE 

RETR 

t************************************************************************* 

7 

7REFRSH SUBROUTINA MULTIPLEXUJE 7 SEG,DISPLAY A VZDY ZOBRAZI DAI SI POSICI 
7NA DISPLAY.JE VHODNE JI VOLAT V MSEC,INTERVALECH 
)************************************************************************ 

7 


0010 

2300 

101 

REFRSHI 

MOV 


A,ABLANK XOR SEGPOL 





0012 

39 

102 



OUTL 

PSGMNT,A 7 ZAPIS 

BLANK KODU DO P 8 C MNT 




0013 

2362 

103 

REFR1I 

MOV 


A,#CHRSTB 





0015 

6 F 

104 



ADD 

A,CURDIG 





0016 

A3 

105 



MOVP 

A,SA 







106 

7 #4 


OUTL 

POIGIT,A 7BUZENI 

ZNAKU PRI POUZITI 8748 




0017 

C5 

107 



SEL 

RBO 

7R0 BANK VYBER 

JEN 

PRO 

8035 

0018 

AB 

108 



MOV 

ACCSA,A 

7USCHOVA ACCU DC ACCSA 

JEN 

PRO 

8035 

0019 

F 8 

109 



MOV 

A , RO 

7USCHOVA RO 00 F03A JEN 

PRO 

8035 


001A 

AC 

110 

MOV 

-ROSA, A 

JPRO 8035 

001B 

B880 

111 

MOV 

RO,AOBOH 

JBIT 7 SET JAKO ADRESA 3212 PRO INSTR.MOVX 

001D 

FB 

112 

MOV 

A,ACCSA 

JOBNOVA ACCU PRI 8035 

001E 

90 

113 

MOVX 

«JR0,A 1 Z API 3 

DO DIGIT LATCH (3212) JEN PRO 8035 

00 IF 

FC 

114 

MOV 

A,ROSA 

JOBNOVA RO JEN PRO 8035 

0020 

A6 

115 

MOV 

RO, A 

IPRO 8035 

0021 

FB 

116 

MOV 

A,ACCSA 

JOBNOVA ACCU JEI PRO 8035 

0022 

05 

117 

118 

1 19 
120 

SEL 

J 

J PRI POUZITI 8748 SE 

RBI J VYBER FBI PRO 8035 

INSTR.OD SEL RBO PO SEL RBI VYPOUSTEJI (JEN PRO 8035) 

002! 

2337 

121 

MOV 

A,ASEGMAP JDEFINICE BAZE DISPLAY-1 EGISTRU V RAM 

00 M 

6F 

122 

ADD 

A,CURDIG 

JADO CURDIG POSI NITI 

00 *6 

A 9 

123 

MOV 

PNTR1, A 


00 ?7 

FI 

124 

MOV 

A,apNTRl 

JLADOVANI VZORKY 

0028 

39 

125 

126 

OUTL 

J 

P3GMNT,A JBUDI 

PRI3LU3NE SEGMENTY 


U29 B821 
)« 2B OA 


t 02C BD04 
002E F7 
002F AC 
0030 F64A 


0032 AS 
0033 B5 


003B B004 
0030 004A 


003F FO 
0040 C64A 
0042 07 
0043 AO 
0044 964A 
0046 FE 
0047 8822 
0049 AO 

004A B821 
004C 10 
004D FC 
004E ED2E 

0050 EF62 


0052 BF08 
0054 BOOO 
0056 765A 
0058 BEFF 
005A A5 


127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 


I *********** <f********************************************************** 

» DALSI ZNAK JE NYNI ZOBRAZEN NA DISPLAY 

I KLAVESNICOVA SNIMAC1 RUTINA JE ZARADENA DO DI8P1AY PROCEDURY 

J S VYUZITIM BUZENI PRI8LU8NE CISLICE A TIM I PRISL.RADKU KLAV, 

J********************************************************************** 

SCAN! MOV PNTRO,AKEYLOC JNASTAVUJE POINTER NA 111AZATEL POCTU 8NIMAN1, 


IN 


A,PINPUT 


JNACITA STLACENI KLAVESY 


I************************************************************************** 

I 

I********************************************************************* 

J ROTACE ACCU PRES CY 

j **************************************************0****************** 

SCANll MOV ROTCNT ,ANCOLS INA3TAVUJE ROTACNI SMYCIU PODLE POCTU SLOUPCU 

142 NXTLOCl RLC A 

143 MOV POTPAT ,A IUCHOVAVA P03UNITOU VZORKU 

144 JC 8CAN5 >JEDNOTKOVY BIT INDIKUJE ZE NEBYLA 8TLACENA KL, 

145 J 

146 J**************11.***************************************************** 

147 >V TOMTO BODE PROGRAMU BYLO PRAVF ZJISTENO ZE HODNOTA V KEYLOC JE POSICE 

148 JTLACITKA KTERE JE NYNI STLACENE.NASLEDUJICI INSTRUKCE DEKOUUJI A URCUJI 

149 jVYZNAM ZMACKNIJTEHO TLACITKA,JAK POUZ1VAME MODIFIKACNI VYZNAM FINKCE 

150 JTLACITKA(SHIFT,CONTROL)NEBO J1NY MODALNI VYZNAM TLACITEK MtLO l Y SE TO 

151 J PROVAOET V TOMTO BODE PROGRAMU,PREDTIM NEZ ZACNE DALSI DEKODOVACI LOGIKA 

152 INAPRIKLAD V TETO CASH MUZE BYT KEYLOC-PROMENNA POROVNAVANA S F AMI 

153 IURCENOU POSICI MODALNIHO TLACITKA A PRI JEHO IDENTIFIKACI SI NASTAVIME 

154 JNEJAKY FLAG 3 3K0CIME NA NAV,"SCAN5"A NEBO POROVNAVAT PROM.KEYI OC S 

155 IPREOESLYM JEJIM OBSAHEM 

156 |*********************************************************************** 

157 CLR FI IZNACKA ZE NEJMlNE JEDNA KLAVESA BYLA DETEKOVANA 

158 CPL FI JNEGOVANO V BEZt EM SNIMANI 

159 I 

160 I******************************************************************** 

161 > ZMACKNUTI TLACITKA bYLO DETEKOVANO V NEKTEREM SLOUPCI JEHO 

162 J JEHO POSICE JE V KEYLOC ZJISTUJt SE JE8TLI TO SAME BYLO 

163 > STLACENE V M1NULEM CYKLU 

164 ;********************************************************************* 

165 J 


0034 

FO 

166 

MOV 

A.SPNTRO 

JPNTRO STALE DRZI AKEYLOC 

003S 

2E 

167 

XCH 

A,LASTKY 


0036 

PE 

168 

XRL 

A,LASTKY 


0037 

B820 

169 

MOV 

PNTRO,ANHEPTS 

JPRIPRAVA NA KOT TROLU 



170 



JOPAKOVACI CITAC 

0039 

C63F 

171 . 

JZ 

SCAN3 



172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 SCAN3 t 

189 

190 

191 

192 

193 

194 

195 

196 J 

197 3CAN5J MOV 

198 

199 

200 

201 I 

202 
203 


)********************************************************************* 

J JINt TLACITKO BYLO PRECTENO V TOMTO CYKLE NEZ PFEDTIM 

J NASTAVUJE NHEPTS NA POZADOVANY PAKAMETR PRO NOVI COUNTDOWN 

j********************************************************************* 

J 

MOV 9PNTR0,ODEBNCE 

JMP SCAN5 

) 

j********************************************************************* 

I TO SAME TLACITKO BYLO DETEKOVANO JAKO V PREDESLTM CYKLU 

J PODIVEJ SE NA NREPTS JE8TLI JE NULOVE,NEDELEJ NIC 

J JE8TE DEKREMENTUJ NREPTS 

J JE LI NULA PRESUN LASTKY DO KBDBUF 

;********************************************************************* 

> 

A,SPNTRO 

SCAN5 
A 

i'PNTRO, A 
SCANS 

A,LASTKY 

PNTRO ,AKBDBUF 
9PNTR0, A 


MOV 


JZ 

DEC 

MOV 

JNZ 

MOV 

MOV 

MOV 


I JE LI NULA 

I INDIKUJE JEONO NAVIC USPESNE TLAC.ZMACKNUTI 


>JAK VYSLEDEK OfKREMENTACE JE NENULOVY 
JOZNACUJE NOVE STLACENI TLACITKA 


PNTRO,AKEYLOC 
INC 9PNTR0 

MOV A,ROTPAT 

DJNZ ROTCNT,NXTLOC 

CURDIG,SCAN9 


SCAN6: DJNZ 

1 

204 ;********************************************************************* 

205 J NASLEDUJICI INSTRUKCE J30U POUZIVANY KLAVE3NICOVOU HUTINOU 

206 J (SCANING)A JSOU VYKONAVANY POUZE PO REFRESH CELFHO DISPLAY 

207 > TEDY VSECH CISEL DANYCH CHARNO 

206 J********************************************************************* 

209 } 

210 MOV CURDIG,ACHARNO 

211 MOV BPNTRO,#0 JPNTRO STALE OBSAHUJE AKEYLOC 

212 i JF1 SCAN8 JJUMP JAK NEJAKF TLACITKO BYLO DETEKOVANO 

213 MOV LASTKY,AOFFH JMENI (LASTKY) JEK NEBYLO 3TLACEN0 ZADNE TL. 

214 SCANS: CLR FI 

215 J 

216 J******************************************************************** 

217 J DALSI PROGRAMOVY SEGMENT JE INTERUPT-RIZENA CAST "DELAY" 

218 J POUZIVAJIC DEKREMENTACI RAM LOKACE ."ROELAY" 1-KFAT ZA DI3PL. 

219 | REFRESH DOKUD "RDELAY" NENI NULA 





\ 

I 

i 

I 


I 

E. 




220 

)******************************************************************** 



221 

t 





005B 

B923 

222 



MOV 


PNTR1 t 6RDELAY 

005D 

Ft 

223 



MOV 


A/9PNTRI 

005E 

C662 

224 



JZ 


SCAN9 

0060 

07 

225 



DEC 


A 

0061 

A1 

226 



MOV 


<JPNTR 1 > A 

0062 

83 

227 

SCAN9I 

RET 



\ 



'228 

> 







229 

)******************************************************************** 



230 

> 







231 

1 CHRSTB 

JE BAZE 

VRCHOLU 

BINARNICH VZOHEK POVOLUJICI 3VIT 1-SEOMISEGMENTOVKY 

0062 


232 

CHRSTB 

EQU 



(S-l) AND OFFH 

0063 

FE 

233 



DB 


(00000001B XOR CHRPOL) 

0064 

FD 

234 



DB 


(00000010B XOR CHRPOL) 

0065 

FB 

235 



DB 


(00000100B XOR CHRPOL) 

0066 

F7 

236 



DB 


(00001000B XOR CHRPOL) 

0067 

EF 

237 



DB 


(OOOIOOOOB XOR CHRPOL) 

0068 

OF 

238 



DB 


(00100000B XOR CHRPOL) 

0069 

BF 

239 



DB 


(01000000B XOR CHRPOL) 

006A 

7F 

240 



DB 


(10000000B XOR CHRPOL) 



241 

t 







242 

unit 

INITIAL IZACE 

PROCESOROVYCH REGISTRU 

006B 

05 

243 

INITl 

SEL 



RBI 

006C 

BF 08 

244 


MOV 



CURDIG,«CHARNO 

006E 

B822 

245 



MOV 


PNTRO f 4KBDBUF 

0070 

BOFF 

246 



MOV 


8PNTR0»40FFH 

0072 

B821 

247 



MOV 


PNTRO,4KEYL0C 

0074 

BOOO 

248 



MOV 


8PNTR0,40 

0076 

23F0 

249 



MOV 


A,4INPM3K 

0078 

3A 

250 



OUTL 


PINPUT,A 1NA3TAVUJE PINPIT NA LOG.l PRO 3TAH0VANI DO 0 

0079 

C5 

251 



SEL 


RBO 

007A 

14A9 

252 



CALL 


CLEAR IIN1CIALIZACE DISPLAY REGISTRU V RAM 

007C 

A5 

253 



CLR 


FI 

007D 

23F0 

2S4 



MOV 


A,FTICK JNASTAVfNI INTERUPT INTERVALU 

007F 

62 

255 



MOV 


T»A 

0080 

55 

256 



3TRT 


T 

0081 

25 

257 



EN 


TCNTI JPQVULUJE TIMER INTERUPT 



258 

» 







259 

t 







260 

1 ******************************************************************** 



261 

1 







262 

1 ECHO 

KONTROLA ZDA 

NEJAKE NOVE STLACENI TLAC.BYLO DETEKOVANO 



263 

> 


TRAN3F0RMUJE KAZDE STLACENI DO DISPILSEGMENTOVE VZORKY 



264 

> 


A ZAPISUJE TO DO PRI3LUSNEH0 DISPLAY REGISTRU V RAM 



265 

|******************************************************************** 

0082 

148E 

266 

ECHO! 

CALL 

KBDIN 

1 ZJ1STENI NOVEHO STLACEM 

0084 

B28C 

267 



JB5 


FKEY 1SKOK JE LI DETFKOVANO TL.V PRAVEM SLOUPCI 



268 

» 


PROTOZE 

ACCU JE POUZIVANY ENCACC A RENTRY RUTINAMI JEHO OB3AH 



269 

i 


MUSI 

BYT 

ZPRACOVANY NEBO U3CHOVANY PRED VOLANIM ENCACC 

0086 

14C5 

270 



CALL 


ENCACC ITVORI PRISLUSNIU VZORKU SEGMENT ZOBRAZENI 

0088 

14E6 

271 



CALL 


RENTRY 1ZAPISUJE VZOHKl DO DISPLAY REGISTRU V RAM 

008A 

0482 

272 



JMP 


ECHO 1SMYCKA 



273 

t 





nnffr 

241F 

274 

FKEYI 

JMP 



FUNCTN 1 JUMP MIMO STRA1KU (OF PAGE CODE) DO DEMONSTR, 



275 





)RUTIN RESP.UZIVATFLSKY DEFINOVANYC^ 


008E B922 
0090 2380 
0092 21 
0093 F28E 
0095 0399 
0097 A3 
0098 83 


0099 


00A9 2300 
00A8 8938 


RUTIN 

; ******************************************************************* 

> IMPLEMENTACE NA3LEDUJICICH SUBROUTIN SE SPOLECNI POUZIVA 

I PRO VET8INU KLAVESNICOVE/DISPLAY ORIENTOVANYCH APLIKACI 

1 MOHOU BYT POUZITE PRESNt JAK JSOU UVEDENE NEBO f RISPU80BENE 

I PRO 3PECIALNI POUZITI 

t ****************************************************************** 

1KBDIN KLAVESNICOVA V3TUPNI SUBROUTINA 

I MUZE BYT POUZITA KU SPOJENI UZIVATEL3KEH0 PROGRAMOVEHO POZADI 

> S PRERUSENIM RIZENOU KLAVESNICOVOU SUBROUTINOU (SCANER) 

» DAVA POUZE PO STLACENI NOVEHO TLACITKA DEKODOVAtOU HODNOTU 

I (LEPE NEZ JEHO P03ICI V MATICI TLACITEK KLAVESNICE) V ACCU 


276 

277 

278 

279 

280 
281 
282 

283 l 

284 > 

285 I 

286 I 

287 » 

288 KBDINl 

289 

290 

291 

292 

293 

294 

295 I 

296 I 

297 ILEGND 


MOV 


PNTR1,FKBDBUF 


MOV 

A,F80H 

XCH 

A,3PNTR1 

JB7 

KBDIN 

ADD 

a,«legnds 

MOVP 

RET 

A,»A 

TABULKY 

UKAZUJICI VYZNAM 


1KBDBUF BUHfe MASKOVAN JAKO CISTY 
JNAPLNEfI BUFFRQVANOU WODNOTOU 


IPRICTENI BASE IEKOOOVACI TABULKY TLACITEK 
10BDRZENI PRISLl3NEH0 VYZNAMU TLACITKA 


298 

299 

300 

301 

302 

303 

304 


PRO KLAVESNICI POUZITOU V TETO UKAZCE APLIKACE 
3 U3POHADANIM PODLE OBRAZKU OBR.l 
BITY 6-4 MOHOU BYT POUZITY POUZITY K DEKODOVANI TYPt 
3 TIMTO VYZNAMEMI 


TLACITEK 


305 LEGNOS EOU 


(S AND OFFH) 


BIT4 INDIKUJE 3KUTECNE I EKAOICKE CISLO 

BIT5 INOIKUJE FUNKCNI TtACITKA V PRAVEM SLOUPCI KLAV. 

BIT6 INOIKUJE PUNKCNI ZtAKY (* A 4) 

IPOUZIVA 8P0DNI BITY JA1Q TABULKOVY INDEX 


0099 

4F 

306 

DB 

4FH 






009A 

10 

307 

DB 

10H 






0098 

4E 

308 

DB 

4EH 






009C 

28 

309 

DB 

28H 

1 PDIGIT4o»> 

1 

2 

3 

<1> 

009D 

17 

310 

DB 

17H 






009E 

18 

311 

DB 

18H 

t PDIGIT5=*> 

4 

5 

6 

<2> 

009F 

19 

312 

DB 

19H 






00 AO 

24 

313 

DB 

24H 

» PGIGIT6sr» 

7 

8 

9 

<S> 

00A1 

14 

314 

DB 

] 4H 






00A2 

15 

315 

DB 

15H 

1 PDIGIT7ob> 

* 

0 

u 

<4> 

00 A3 

16 

316 

DB 

16H 






00A4 

22 

317 

DB 

22H 

f 

1 

1 

l 

1 

.00 A5 

11 

318 

DB 

11H 

t 

1 

1 

1 

l 

00 A6 

12 

319 

DB 

12H 

f 

V 

V 

V 

V 

00A7 

13 

320 

DB 

13H 

1 PINPUT7 

PINFUT6 

PINPUT5 

PINPUT4 

00A8 

21 

321 

DB 

21H 







322 I 

323 )******************************************************************** 

324 ICLEAR ZAPISUJE 'BLANK' ZNAK DO DISPLAY REGISTRU V RAM 

325 1 VRACI 3E 3 NASTAVENYM NEXTPL NA LEVOU KRAJNI POSICI DISPLAY 

326 IFILL ZAPISUJE SEGMENTOVOU VZORKU V ACCU DO DISPLAY REGISTRU V RAM 

327 CLEARl MOV A,#BLANK XOR SEGPOL 

328 FILLt MOV PNTR1,43EGMAP+1 


7 


00 AD 

BF 08 

329 


MOV 

NEXTPL,9CHARN0 


00 AF 

A1 

330 CLRlI 

MOV 


8PNTR1, A 

7UKLADA BLANK KOD 

00B0 

19 

331 


INC 

PNTRl 

70ALSI POSICE DO LEVA 

0 OB 1 

EFAF 

332 


DJNZ 

NEXTPL,CLR1 


00B3 

BF08 

333 


MOV 

NEXTPL,PCHARNO 


0 0B5 

83 

339 


RET 





335 7 






336 f ********************************************************************* 

337 7 

336 7 PRINT SUBROUTINA KE KOPIROVANI BINARNICH VZOREK Z "ROM" DO 
339 7 DISPLAY REGISTRU V RAM POCINAJE ADRESOU V PNTRO 

390 I DOKUD SE NEDOSAHNE ZAKONCOVACI KOD CV TOMTO PRIPADE -O0H«) 

391 > lit RETEZEC ZNAKU MUSI BYT NA TEZE STRANCE JAKO SUBROUTINA 




392 

7 


PRINT Z DUVODU 

VAZBY NA VOLANI 

"WDISP 

NEBO RENTE Y" 



393 

7 


PRO EFEKTNI ZAPISY DO DISPLAY 

REGISTRU 

V RAM 

00B6 

F6 

399 

PRINTJ 

MOV 

A,PNTRO 



7ZADAVAM NASLED.ZNAKOVE POSICE 

00B7 

A3 

395 



MO VP A,S>A 



7NACTENI BITOVE VZORKY 

00B8 

C601 

396 



JZ 

PNTRl 


7DEKODOVANI ZAVERECNEHO PRVKU (OOH) 

OOBA 

19DB 

397 



CALL WDISP 



7VYSTUP NA DALSI ZNAKOVOU POSICI 



398 

7 ## 


CALL RENTRY 



7NEBO SEOK NA RENTRY 



399 

7 






0 OBC 

18 

350 



INC 

PNTRO 


7 INDEX ukazovatel 

OOBD 

09B6 

351 



JMP 

PRINT 



OOBF 

83 

352 

PRNTlt 

RET 




7PROVEDENO 



353 

7 








359 

fA******************************************************************** 



355 

7 








356 

7 AHOJ 

OBLAST 

PAMETI ROM S POZDRAVNOU 2PRAV0U 

i 'AHOJ' 

( HE8T2H 



357 

7 


(UPOZORNENI ZE 

POUZE "HOJ" SE 

VYPISE V 

PRIPADE EENTRY) 

OOCO 


358 

AHOJ 

EQU 

$ AND OFFH 



OOCO 

77 

359 



DB 

01110111B XOR 

SEGPOL 


00C1 

76 

360 



DB 

01110110B XOR 

SEGPOL 


00C2 

3F 

361 



DB 

OOllllllB XOR 

SEGPOL 


00C3 

IE 

362 



DB 

0001111 OB XOR 

SEGPOL 


00C9 

00 

363 



DB 

00 




369 7 

365 7************************************************************"******* 

366 7 

367 7ENCACC DEKODUJE LSNIBLE(SPODNI CAST ACCU)NA HEXA KOD 


00C5 

530F 

368 ENCACCI ANL 


A,OENCMSK 

00C7 

03CB 

369 

ADD 

A,WDGPATS 

00C9 

A3 

370 

MOVP 

A, alA 

OOCA 

83 

371 

PET 



37? 7DGPATS JE BAZE TABULKY SEGMENTOVYCH VZOREK PRO ZAKLADNI 
373 7ZNAKY (0-F) 

379 IPRO SPECIFICKE UZIVATEL8KE APLIKACE TABULKA MUZE BYT MODIFIKOVANA 
375 7POOLE POTREBY S POUZITIM FORMATU SEGMENTU DISPLAY 




376 

7 FORMAT JE V NASEM 

PRIPADE 

STANPARTNI — P-l 

S-F-l 

>D-C~B' 



377 

7KOE -P-JE SVIT DESETINNE 

TECKY 





378 

7 





OOCB 


379 

DGPATS EQU 

$ 

AND OFFH 



0 OCB 

3F 

380 

DB 


OOllllllB 

XOR 

SEGPOL 

OOCC 

06 

381 

DB 


0000011 OB 

XOR 

SEGPOL 

OOCD 

5B 

382 

DB 


01011011B 

XOR 

SEGPOL 

OOCE 

9F 

383 

DB 


01001111B 

XOR 

SEGPOL 

OOCF 

66 

389 

DB 


01100110B 

XOR 

SEGPOL 

OODO 

6D 

385 

DB 


01101101b 

XOR 

SEGPOL 

OOD1 

7D 

386 

DB 


01111101B 

XOR 

SEGPOL 

00D2 

07 

387 

DB 


OOOOOl1 IB 

XOR 

SEGPOL 

00D3 

7F 

388 

DB 


01111I11B 

XOR 

SEGPOL 

0009 

67 

38R 

DB 


011001llB 

XOR 

SEGPOL 

OOD5 

77 

390 

DB 


01110111B 

XOR 

SEGPOL 

00D6 

7C 

391 

DB 


OlllllOQB 

XOR 

SEGPOL 

00D7 

39 

392 

DB 


001110010 

XOR 

SEGPOL 

00D8 

5E 

393 

DB 


01011110B 

XOR 

SEGPOL 

OOD9 

79 

399 

DB 


OllltOOlB 

XOR 

SEGPOL 

OODA 

71 

395 

DB 


01 11000 IB 

XOR 

SEGPOL 


396 7 
398 7 




399 

7 WO ISP 

ZAPISUJE 

BINAHNI 

VZORKU 

NYNI V ACCU DO DALSI ZNAKOVE POSICE 



900 

7 


DISPLAY 

(NEXTPL) 




901 

7 





OODB 

A9 

902 

wo isp* 

MOV 


PNTRl, A 


OODC 

FF 

903 



MOV 


A,NEXTPL 

OODD 

0337 

909 



ADD 


A,ASEGMAP 

0 ODF 

29 

905 



XCH 


A,PNTRl 

OOEO 

A1 

906 



MOV 


SPN TR1, A 

00E1 

EFE5 

907 



DJNZ 

NEXTPL,W0ISP1 

00E3 

BF 08 

90B 



MOV 


NEXTPL,9CHARN0 

0OE5 

83 

909 

WOISPH 

RET 






910 

7 






911 I********************************************************************* 

91? IRENTRY SUBROUTINA K ZAPISU ACCU DO PRAVE KRAJNI POSICE DISPLAY 
913 > S POSUNUTIM V3EH0 DO LEVA 0 1 POSICI 

919 7 

00E6 B938 915 RENTRYI MOV PNTRl,ASEGMAP ♦ 1 

00E8 BF08 916 MOV NEXTPL, 9CHARN0 

OOEA 21 917 RENTRl! XCH A,3PNTR1 

0 OEB 19 918 INC PNTRl 

0OEC EFEA 919 /BJNZ NEXTPL,RENTH1 

0OEE BF08 920 MOV NEXTPL,*CHARNO 70BN0VA UKAZATELE NA LEVOU KRAJNI POSICI 

00F0 83 921 RET 

922 7 

923 7 ******************************************************************** 

929 7 

925 7HOPADD DAVA DESETINNOU TECKU ZA POSLEONI ZNAK NA DISPLAY 

926 70PADD DAVA DESETINNOU TECKU KE ZNAKU KTERY JE V ACCU 

927 7 

00F1 2301 926 RDPADD t MOV A.901H 7 NAST AVENI INDEXU NA PRAVOU KRAJNI POSICI 


OOF3 

0337 

929 

OPADDl ADD 


A,9SEGMAP 7 SCITA DISPLAY REG.ADRESU PRO PRISL,POSICI 

OOFS 

A9 

930 


MOV 

PNTH1,A 

00F6 

FI 

931 

MOV 


A,8PNTR1 

0 0F7 

D380 

932 

XRL 


A,«80H 

00F9 

A1 

933 


MOV 

SPNTR1, ^ 

OOFA 

83 

939 


RET 




935 

7 





936 

7******************************************************************* 

0100 


937 


ORG 

0100H 7P0SUV NA DALSI STRANKU PAMETI PHOGRAMU 





438 

t hold 

SUBROUTINA VOLANA 

KDYZ 

JE STLACENE NEJAKE TLACITKO 



439 

t 


A NEVRACI 

SE Z 

NI DOKUO NENI TOTO UVOLNENO 

0100 

05 

440 

HOLDS 

SEL 

R81 


0101 

FE 

441 



MOV 


A,LA8TKY >(LA3TKY)»0FFH JAK NENI 

0102 

C5 

442 



SEL 


RBO 

0103 

37 

443 



CPL 


A 

0104 

9600 

444 



JNZ 


HOLD 

0106 

83 

445 



RET 





446 

1 







447 

> ******************************************************************* 


0107 B923 
0109 A1 
010A FI 
010B 960A 
0100 83 


01 IF 


448 > 

449 SOELAY 8UBR0UTINA OAVA SPOZDENI ROVNE POCTU KOMPLETNICH REF'RESfi 013PLAY 

450 S 

451 DELAYS MOV 

452 

453 DELAYll MOV 

454 

455 

456 I 

457 f ****************************************************************** 

45B I 

459 ORG 11FH JZACATEK UKAZtK 


V ZAVI3L08TI NA HODNOTE ZPOZDENI DANE ACCU PRED JEJIM VDLANIM 
PNTR1, PRDELAY 
MOV 3PNTR1,A 

A,9PNTR1 

JNZ DELAY1 

RET 


460 

461 IPROGRAMY NA TETO STRANCE PAMETI PROGRAMU JSOU UKAZKOU POUZITI 

462 INAVRZENEHO HN A PRI8LUSNYCH RUTIN SN 

463 SNFSLOUZI SAMOZDREJME JAKO 3TANDARTN1 FUNKCE TOHOTO PRIKLADU 

464 SAPLIKACE JE UKAZKOU DEFINICE UZIVATELSKYCH RUTIN NA ZAKLADE 

465 SVYVflLANI FUNKCNICH TLACITEK 

466 SRUTINY J30U VOLANT JELI 1 ZE 4 F-KEYS 3TLACENE 

467 I 

468 > 

469 ;*•**************************************************************** 

470 f 

471 > FUNCTN RUTINY K IMPLEMENTACI 1 ZE 4 DEMONSTRACNICH UKAZEK V ZAVISLOSTI 

472 I OD STLACENI 1 ZE 4 FUNKCNICH TLACITEK * 

473 S 


01 IF 

1231 

474 

FUNCTNS 

JBO 


FUNCT1 



0121 

322D 

475 



JB1 


FUNCT2 


0123 

5229 

476 



JB2 


FUNCT3 




477 

» 






0125 

14F1 

478 

FUNCT4S 

CALL 

RDPADD 




0127 

0482 

479 



JMP 


ECHO ' 




480 

1 






0129 

344D 

481 

FUNCT3S 

CALL 

TEST3 




012B 

0482 

482 



JMP 


ECHO 




483 

1 






0I2D 

3443 

484 

FUNCT2S 

CALL 

TEST2 




012F 

0482 

485 



JMP 


ECHO 




486 

» 






0151 

3435 

467 

FUNCT1S 

CALL 

TEST1 




0133 

0482 

488 



JMP 

ECHO 





489 

t 








490 

s ******************************************************************** 




491 

> 








492 

ITEST1 

TENTO 

KODOVY SEGMENT VYPLNI DISPLAY REGISTRY V RAM DEKTtMENTEM 

8 

0135 

8F08 

493 

TESTIS 

MOV 


NEXTPL 

,PCHARNO 


0137 

BB08 

494 



MOV 


PNTRO,4CHARN0 JNASTAVENI a CY»LOVE SMYCKY 

0139 

FF 

495 

TSTUs 

MOV 


A,NEXTPL 


013A 

14C5 

496 



CALL 

ENCACC 



013C 

14DB 

497 



CALL 

XDISP 



013E 

E639 

498 



DJNZ 

PNTRO, 

TST11 IKOPIROVANI HODfOTY DO 

DISPLA 

0140 

BF08 

499 



MOV 


NEXTPL, IHCHAHNO 


0142 

83 

500 



RET 





501 > 

502 » ******************************************************************* 


0143 B8C0 
0145 I486 
0147 2364 
0149 3407 
014B 04A9 


0140 2340 
014F 14AB 
0151 3400 
0153 04A9 


503 ITEST2 ZAPI3UJE 3EGMENT0V0U VZORKU "AHOJ" DO DISPLAY REG. 


504 | 

CHVILI 

POCKA A 

POTOM VYMAZE DISPLAY 


505 TE3T2S MOV 


PNTRO, 

4AH0J 


506 

CALL 

PRINT 



507 

MOV 


A,*100 

JCYKLUS DISPLAY 100 

508 

CALL 

DELAY 



509 

JMP 


CLEAR 



510 ; 

511 I ******************************************************************* 

512 » 

513 ITEST3 

514 I 

515 » 

516 TEST3I 

517 

518 

519 

520 » 

521 t ****************************************************************** 

522 » TOBOLA JIRI 9,9,1988 

523 I ****************************************************************** 

524 END 


SUBROUTINA VYPLNUJICI DISPLAV POMLCKAMI 
SKACE DO 3U8R0UT1NY 'CLEAR' 

JAKMILE TLACITKO JE UVOLNENO 
MOV A,F01000000B XOR SEGPOL SVZOREK '<•' 

CALL FILL 

CALL HOLD 

JMP CLEAR 


krat 


USER SYMBOLS 
ACCSA 0003 

AHOJ 

OOCO 

ASA VE 

0002 

blank 

0000 

CLRi 

OOAF 

CURDIG 

0007 

DEBNCE 

0004 

DELAY 

0107 

ENCACC 

00C5 

ENCM3K 

000F 

FILL 

OOAB 

FKEY 

008C 

FUNCTN 

01 IF 

HOLD 

0100 

INIT 

006B 

INPM3K 

OOFO 

LE6NDS 

0099 

NCOLS 

0004 

NEGLOG 

OOFF 

NEXTPL 

0007 

PINPUT 

0009 

PNTRO 

0000 

PNTR1 

0001 

POSLOG 

0000 

RDELAY 

0023 

RDPADD 

OOF 1 

REFR1 

0013 

REFRSH 

0010 

SCAN 

0029 

SCAN1 

002C 

3CAN3 

003F 

SCANS 

004A 

SEGPOL 

0000 

TEST1 

0135 

TEST2 

0143 

TEST3 

014D 

WDI3P 

OODB 

WDISP1 

00E5 






CHARNO 

0008 

CHRPOL 

OOFF 

CHR8TB 

0062 

clear 

DELAY1 

010A 

DGPATS 

OOCB 

DPADD 

00F3 

ECHO 

FUNCT1 

0131 

FUNCT2 

0120 

FUNCT3 

0129 

FUNCT4 

KBD8UF 

0022 

KRDIN 

008E 

KEYLOC 

0021 

LA3TKY 

NREPTS 

0020 

NRDWS 

0004 

NXTLOC 

002E 

PDIGIT 

PRINT 

0086 

PRNT1 

OOBF 

PSGMNT 

0006 

ROSA 

RENTK1 

00E A 

HENTRY 

OOE6 

ROTCNT 

0005 

ROTPAT 

SCAN6 

0050 

SCANS 

OOSA 

SCAN9 

0062 

SEGMAP 

TICK 

FFFO 

TIINT 

0007 

TIRET 

000E 

TSTlt 


ASSEMBLY COMPLETE* NO ERRORS 


Vypis 1. Zdrojovytextobsluznehoprogramu 
(922-V1) 


00 A9 
0082 
0125 
0006 
0010 
0004 
0004 
0037 
0139 
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PROGRAM PRO 

MINIMALIZACI LOGICKE FUNKCE 

v .. .'.* ■* _ . .■ ■■.1 ....•. J 


Zbynek Calaba, OKI SZC, Krouzova 3039 14300 Praha 4 


Pri navrhu kombinacmch logickych obvodu se konstrukter casto setkava s potrebou vytvorit logickou sit’ 
urcitych vlastnosti. Pozadovana funkce se zpravidla vyjadruje pravdivostru tabulkou pro 2" stavu, kde n je 
pocet vstupnich logickych promennych. Pro urcity pocet techto stavu nabyva logicka funkce hodnotu „1“ 
a pro ostatni „0“. Takovou funkci potom muzeme v trivialnim pripade vytvorit pouzitirp dekoderu tech stavu, 
pro ktere funkce nabyva hodnoty „1“ a provest logicky soucet jejich vystupu. 

Minimalizace logicke funkce odpovida na otazku, zda je vzdy nutne pri dekodovani zahrnovat vsechny 
vstupni promenne, tj. zda by nebylo mozne dva nebo vice samostatnych dekoderu nahradit jednim. 


V praxi existuji ruzne metody pro minimali- 
zaci logickych funkci. Jejich pracnost vsak 
prudce roste s poctem vstupnich promen¬ 
nych. A clovek je tvor omylny a pohodlny . . . 

V nekterych pripadech resi situaci proste 
tak, ze k vytvoreni funkce pouzije PROM. 
Pritom reseni s pouzitim ,,klasickych“ hradel 
muze vyhovet a navic odpadnou problemy 
s programovanim pameti. 

K usnadneni tohoto rozhodovani, pro re¬ 
seni ulohy minimalizace logickych funkci, 
pripadne pro demonstracni ucely v krouz- 
cich a kursech, byl vytvoren tento program. 

Praktieke vyuziti na mikropocitaci SPEC¬ 
TRUM je omezeno aplikaci na logickou funk¬ 
ci nejvyse osmi vstupnich prombnnych. Toto 
omezeni je dano typem ,,stroje“, nebof cela 
minimalizace je resena v pameti omezene 
delky a v sestave SPECTRA chybi prostre- 
dek pro efektivni praci se soubory. 

V amaterske praxi je minimalizace i takove 
logicke funkce prinosem. Kdo nevbri, at to 
zkusi manualne! 

Hlavni program pint funkci editoru tabulek 
popisujicich danou logickou funkci. Je na- 
psan v jazyce BASIC-ROM SPECTRUM. 
Podprogram ve strojovem kodu zajisti velmi 
rychly vypocet s vystupem minimalizace ve 
tvaru ,,soucet soucinu" nebo ,,negace souc- 
tu soucinu“. Je vyuzit strojovy kod Z-80, 
delka podprogramu je 1800 bajtu. Pri praci 
programu se vyuziva cela zbyvajici pamef 
pocitace. 

Pouziti strojoveho kodu je nezbytne. V pu- 
vodni variante byl algoritmus overovan v ja¬ 
zyce BASIC. Nehlede na dalsi omezeni trval 
vypocet az 30 minut a to i pri pouziti BASIC 
kompilatoru (BLAST, COLT). 


1. Implementace programu 

Pripustme, ie budouci uzivatel potrebuje 
predevsim funkcni program a ze jej nezaji- 
ma, co se v pameti pocitace deje. Potom se 
stava otisteni vypisu v assembleru neucel- 
ne. Uzivatel by musel napsat do pocitace 
podstatne vice znaku a protoze navic pro¬ 
gramu nerozumi (proc take), nemuze ani 
posoudit, zda pomoci prekladace vytvoril 
spravny program, a to i v pripade, kdy prekla- 
dac nehlasi zadne chyby. Pro takoveho uzi- 
vatele je zapotrebi, aby mohl na zaklade 
udaju autora vytvorit rychle a presne poza- 
dovany blok udaju v pameti a uchovavat ho 
na kazete. 

K mnou pouzitemu reseni mne inspiroval 
zpusob pouzivany v casopise FUNK AMA¬ 
TEUR. Princip spociva v tom, ze je publiko- 
van vypis, jehoz kazdy radek je doplnen 
I O kontrolnim cislem (je vypocitano pro kazdy 


radek). Pri vkladani udaju do pameti je kon- 
trolni cislo opet vypocitavano a kontrolovano 
se zadanym. Uzivatel je ihned upozornSn na 
pripadnou chybu. 

Domnivam se, ze tento zpusob otiskovani 
programu by si zaslouzil rozsireni i u nas. 
Usetrime cas a take tiskove strany, kterych 
se nedostava. Navic je takovy zpusob pri- 
stupny i ,,basicovskym“ programatorum. 

Ostatne, zdatni programatori si zajiste naj- 
dou zpusob, jak poridit zpetny preklad do 
assembleru, pokud to ovSem potrebuji. Ne- 
mluve o programatorske etice, analyza a na- 
sledna uprava ciziho programu je 6asov6 
narocna. 

Ve Vypisu 4 je uveden program ,,HEXLO- 
AD“, ktery umozni vytvofeni bloku pambti na 
zaklade vypisu vy§e uvedenych vlastnosti. 
Tento program je bezpebne pouzitelny pro 
vytvareni bloku od adresy 6500 H vy§e. 

Program ,,HEXDUMP“ (vypis 5) je urben 
pro kontrolni vypis pameti na displeji. V pri¬ 
pade, ze by se navrhovany zpusob prezen- 
tace programu ve strojovem kodu ujal, jeho 
uprava pro tisk^rnu nebude binit potize ani 
zacatecnikum. 

Oba programy si vytvareji v radku 1 REM 
strojovy kod pro vypobet kontrolniho cisla. 
Vyuziva se instrukce XOR. 

Tyto programy doporucuji vytvorit predem 
a po overeni funkce ulozit na kazetu jestb 
pred zahajenim dalsich praci. 

V pameti je nutno vytvorit dva bloky strojo¬ 
veho kodu. Druhy blok je ridici tabulka. K vy¬ 
tvoreni doporucuji nasledujici postup: 

1. RESET systemu (dojde k vynulovani pa¬ 
meti). 

2. Zadat postupne: CLEAR 32767, LOAD 
”HEXLOAD“, RUN. 

3. Zadat adresu (8000) a ulozit prvni blok 
(postaci do adresy 8370). Postupne se 
vzdy zadava cely radek, vcetnb kontrol¬ 
niho cisla podle sablony v dolni casti 
obrazovky. Pro opravy muzete vyuzivat 
bezne editacni klavesy. V pripadb spr^v- 
ne vlozenych dat je adresa automaticky 
zvetsena a ve vkladani muzete pokraco- 
vat. Nespravne vlozena data program 
signalizuje a radek musite napsat znova. 
Po dosazeni konce bloku prerubite pro¬ 
gram zadanim prazdneho vstupniho re- 
tezce. 

4. Zadate RUN a cely postup budete opa- 
kovat pro druhy blok od adresy 8500. 

5. Poridite bezpecnostni kopii podprogra¬ 
mu (prikazem SAVE “probajt“ CODE 
32768, 1800) a provedete jeji verifikaci. 

6. Zadate NEW (smaze se oblast od 32767 
dolu). 

7. Vytvorite hlavni program ,,BAJT“ podle 
vypisu 1 . Pozor! Program se doporucuje 


spoustet teprve v okamziku, kdyz je cely 
vytvoren! V zadnem pripade to nemuze 
byt drive, dokud neni pritomen v pameti 
podprogram! 

8. Prikazem GOTO 160 poridite potom upl- 
nou kopii programu na kazetu. 

9. Nyni je mozno zahajit testovani pro¬ 
gramu a opravy chyb vzniklych pri zapisu 
programu v BASICu. 

10. Konecnou verzi ziskate pouzitim ,,auto¬ 
save" na radku 160 (viz bod 8). 

Poznamka: 

Matematikove mohou dokazat, ze zpusob 
vytvbreni kontrolni bislice nezabrbni vbem 
moznym omylum pri vkladani podprogramu 
do pambti. V pripadb, ze se program pri 
vyvolbni minimalizace zhrouti nebo se neo- 
cekavanb zachova, mohu doporucit jedinb: 
program ,,HEXDUMP“ a kontrolu kazdbho 
bajtu zvlasf. 


2. Pouzivanf programu 

Po zavedeni programu je vypsano zakladni 
menu: 

1 - tabulku vytvorit, 

2 - tabulku bist z magnetofonu, 

3 - tabulku ulozit na magnetofon, 

4 - tabulku opravit, 

5 - tabulku zobrazit, 

6 - tabulku vytisknout, 

7 - tabulku minimalizovat, 

8 - tabulku invertovat. 

Radky 3 az 8 jsou zobrazovany pouze 
tehdy, jestlize program jiz nejakou tabulku 
zna. 

Program pracuje se soubory (typ 
3 - CODE) delky 256 bajtu, jejichz jmeno je 
tvoreno sesti volitelnymi znaky a sufixem 
“.TAB*. 

Pouziti tlacitka BREAK prerusi program, 
s vyjimkou pripadu, kdy pracuje podprogram 
minimalizace. Pro navrat k menu bez ztrbty 
dat pouzijte povel GOTO 22. Prikaz RUN 
take spusti program, avsak zpusobi vynulo¬ 
vani tabulky. 

Hodnoty jsou do programu zadavany v he- 
xadecimalnim tvaru. Zadavane hodnoty (re- 
tezce) jsou'vzdy interpretovany na urovni 
poslednich dvou pravych znaku, zbytek re- 
tbzce je ignorovan. Vstup prazdneho retezce 
je ekvivalentni vstupu „0“ nebo je vyuzit pro 
ukonbeni funkce (program vzdy upozorni). 

Vytvoreni tabulky 

Tabulka v pameti je vynulovana a v nasle- 
dujicim dialogu jsou zadavany termy, tj. sta- 
vy, pro ktere nabyva vystupni logicka funkce 




hodnotu „1“. Cely proces vkladani ukonbite 
vstupem retezce nulove delky (stiskem sa- 
motne klavesy ENTER). Pote je automaticky 
zobrazena tabulka, kterou jste vytvorili a ]ste 
dotazani, zda souhlasite se zadam'm (s jejim 
obsahem). 

Pokud odpovite „A“, prejde program zpet 
k hlavnimu menu. Odpoved’ ,,N“ vyvola do- 
taz, zda si prejete tabulku jen opravit (,,0“) 
nebo vytvorit znovu (,,Z“). Rozdil spociva 
v tom, ze na pokyn „0“ prejde program 
k funkci 4, pokyn ,,Z“ zpusobi vynulovani 
tabulky (navrat k pocatku funkce 1). Jine 
odpovedi program odmfta. 

Uvedeny postup je vhodny pro vytvoreni 
tabulky, ktera je malo obsazena hodnotou 
,,1“. Tabulku s prevladajicim poctem jedni- 
cek zlskate snaze timto postupem: 

- bezprostredne po volbe 1 ukoncite praci 

(ENTER), 

- odsouhlaslte nulovou tabulku (,,A“), 

- po zobrazeni rhenu provedete volbu 8, 

- pouzijete volbu 4 - opravit tabulku. 

Cteni tabulky z magnetofonu 

Po teto volbe jste dotazani na nazev tabul¬ 
ky, kterou chcete cist. Delka nazvu je zkon- 
trolovana. Sufix “,TAB“ nezadavejte, je do- 
plnovan automaticky. Potom zbyva bezna 
obsluha pofiitace pri cteni souboru. Po 
uspesnem cteni se program vraci k hlavni¬ 
mu menu. 

V pripade, ze zadate prazdny retezec 
misto nazvu, je nahran prvy soubor typu 3, 
ovsem jen za predpokladu, ze ma shodne 
parametry jako soubory vytvarene pro- 
gramem ,,BAJT“. Jinak nastane chyba a je 
nutno program znovu spustit. 

Zapis tabulky na magnetofon 

^Jste pozadani o nazev tabulky (op§t neza- 
davejte sufix “.TAB"). Vstup prazdneho re¬ 
tezce program odmita, stejne jako nazev 
delSi nez §est znaku. DalSi postup je shodny 
s postupem pro j3r£ci se soubory. Po nahrani 
mate moznost volbou ,,A“ verifikovat uloze- 
na data. Jina volba, stejne jako uspe§na 
verifikace dat, vede k navratu k hlavnimu 
menu. 

Oprava tabulky 

Tabulka je opravovana po jednotlivych 
prvcich, jejichz pozici je vzdy nutno zadat. 
Zadav^te tedy nejdrive pozici, potom je zn£- 
zorndna stara hodnota a potom jste pozada¬ 
ni o vstup hodnoty nove. 

Vstup prazdneho ret&zce pri dotazu na 
pozici zpusobi zobrazeni tabulky a zadost 
o jeji odsouhlaseni. Pozor! Odpoved’ „Z“ 
vede nenavratnd ke ztrat§ dat a funkci 1, tj. 
znovuvytvoreni tabulky! Pokud si prejete po- 
krafiovat v opravach, je nutno zadat ,,N" a na 
nasledujici otazku odpovedat znakem ,,0“. 

Zobrazeni tabulky na displeji 

Tato volba zpusobi, ze tabulka je zobraze¬ 
na ve tvaru mapy, kdy poradi indexu v rad- 
cich a sloupcich je zmeneno proti prirozene 
posloupnosti hexadecimainich cislic. Tento 
zpusob poskytuje konkretnejsi grafickou 
predstavu o povaze logicke funkce a moz- 
nostech jeji minimalizace. 

Vytisteni tabulky na tiskarne 

Vystup je zajisten prikazem LPRINT. Mate 
moznost zadat pro tabulku libovolny nadpis. 
Vzor vypisu je uveden v kontrolnim prikladu 

na obr. 1. 

Ti uzivatele, kteri nemaji k dispozici origi- 
naini tiskarnu, musi nahrat pfed spustenim 
programu do pameti obsluzny podprogram 
a provest inicializaci. Doporucuji jeho umis- 
t§ni v rozmezi adres 5B00-5BFF, rozhodne 
vsak do adresy 7FFF. 


LOGICKA FUNKCE (OR-AND): 


< 

(/A/B/E) 

+(/A/B/C/D) 
+( A B C D) 
> 


Tabulka k predchazejici logicke funkci 



O 

1 

3 

2 

6 

7 

5 

4 

c 

D 

F 

E 

A 

B 

9 

8 

O: 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 : 

1 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 

3: 

1 

1 

•1 

•1 

1 

1 

1 

1 

0 

O 

0 

0 

0 

0 

0 

0 

2 s 

1 

1 

1 

1 

1 

1 

1 

■1 

0 

O 

0 

0 

0 

0 

0 

0 
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O 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

7: 

O 

0 

0 
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0 
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0 

0 
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0 
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5: 

0 
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0 
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0 
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D: 
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0 
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0 
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F: 

1 
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1 
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1 
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1 
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E: 
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B: 

O 

0 

0 

0 

0 

0 

0 
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O 

0 

0 

0 

0 

0 

0 

0 

9: 

O 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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0 

0 

8: 

O 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


LOGICKA FUNKCE (NOR-AND): 
/< 

(/A/B/E) 

+(/A/B/C/D) 

+( A B C D) 

> 


Obr. 1. Vypisy kontrolniho prikladu (921-1) 

Minimalizace tabulky 

Volbou je spuStdn podprogram minimali¬ 
zace tabulky logicke funkce. Po dobu reSeni 
je zakazano preruSeni. Doba nutna k reSeni 
zavisi naobsahu tabulky. Akusticky jste upo- 
zornani, jestlize program nalezl reSeni. Po 
stisknuti libovolna klavesy je reseni vypiso- 
vano. Tvar vypisu bude rozebran dale. Akus- 
ticka signalizace je pozustatkem z dnvajSi 
doby, je mozna ji vypustit. Po ukondeni 
vypisu mate moznost pozadat o jeho zopa- 
kovani (vhodne u delSich vypisu). 

Invertovanl tabulky 

Volba zpusobi zamanu v§ech prvku , ,0“ 
tabulky za ,,1“ a obracena. 


3. Kontrolm priklad 

Pro ovareni zakladnich funkci vam po- 
slouzi nasledujici kontrolni pripad. Marne 
vytvorit kombinacni obvod, pro ktery plati 
tabulka uvedena uprostred obr. 1. Po spus- 
tani programu zvolte ,,1“ a potom zadavejte: 

00 01 02 03 04 05 06 07 08 09 OA 0B 0C 0D 0E OF 

10 11 12 13 14 15 16 17 

20 21 22 23 24 25 26 27 

30 31 32 33 34 35 36 37 

F0 FI F2 F3 F4 F5 F6 F7 F8 F9 FA FB FC FD FE FF 

„prazdny vstup". 

Pripominam, ze na poradi zadavanych 
hodnot nezaiezi, zde prezentovany tvar vam 
zadani pouze usnadni. Pokud jste se zmylili, 
mate moznost jiz popsanym postupem ta¬ 
bulku opravit. Na konci celeho Vaseho sna- 
zeni by mala byt tabulka zminana v uvodu. 

Volbou ,,3“ ulozte tabulku na pasku. Ovar- 
te i verifikaci dat. 

Smazanim tabulky (volba ,,1“ a ihned 
ENTER) obdrzite nulovou tabulku. Pomoci 
volby ,,2“ vyzkousite 6teni z magnetofonu. 
Musite obdrzet puvodna vytvorenou tabulku. 

Volbou ,,4“ vyzkouSejte opravu tabulky 
(pokud jste tak^iz neucinili v kroku vytvare- 


ni). Zadate napr. AA1 AA 0. Tabulka je opat 
puvodni. 

Volbou ,,8“ ovarte inverzi tabulky. Aby 
bylo dosazeno stejnych vysledku jako na 
obrazku, proved’te inverzi jesta jednou. 

Pokud mate pripojenou tiskarnu, muzete 
ovarit tisk tabulky volbou ,,6“. Jeji zobrazeni 
(volba ,,5“) bylo ovareno jiz v mnoha pred- 
chozich krocich. 

Volba „7“ zpusobi, ze po jiste doba bude 
na vas pokyn zobrazeno reseni ve tvaru 
uvedenem v horni casti obrazku 1. 

Nakonec postupnou volbou ,,8“ a ,,7“ 
obdrzite vysledek v pripada invertovane ta¬ 
bulky (obr. 1 dole). 

Poznamky k tvaru vypisu logicke funkce: 

Jednotlive vstupni promanna jsou vyjad- 
reny znaky „A“ az ,,H“. Znak ,,/“ pred 
promannou vyznacuje negaci promanne na- 
priklad ,,/A“ znamena ,,ne A“, ,,A non". 

Jednotlive dilci souciny jsou uzavreny 
v kulatych zavorkach, slozena zavorky uza- 
viraji celou funkci. 

Jak jiz bylo uvedeno, program se snazi 
setrit cas a proto v zavislosti na rozsahu 
zadani voli dva vyjadreni logicke funkce. 
Druhy typ vypisu se bude nekomu zdat ne- 
obvykly. Vyuzitim pravidel logiky je mozno 
vysledek upravit na aplikaci konkretna pou- 
zitych logickych prvku. Ja jsem si nechtai 
komplikovat situaci rozsirenim programu 
pro znazornovani ruznych variant, za hlavni 
prinos povazuji predevsim zpracovani pod- 
programu minimalizace. 

Pokud bude vstupnich promennych mene 
nez osm, zadejte tabulku v menSim rozsahu 
termu a ve vypisu neprihlizejte k nevyuzitym 
prpmannym. 

ZavSrem preji v§em uzivatelum mnoho 
spokojenosti pri praci s timto programem. 


Vypis 1. Hlavni program (921-VI) 

1 REM- 

2 REM *BAJT* minimalizace QMC 

3 REM--- 

4 LET pgm=32768: POKE 23658,8 

5 DEF FN a(i)=PEEK (pgm+i)+25 
6*PEEK (pgm+i+1) 

6 LET main=FN a(O) 

7 LET t=FN a<2) 

8 RESTORE 14. DIM e(16) 

9 DIM ew(16)= DIM qw(8) 

10 FOR i=*l TO 16 

11 READ e(i),e«(i), NEXT i 

12 FOR i=l TO 8= READ qx<i> 

13 NEXT i 

14 DATA 0, ,, 0",l, ,, l ,, ,3, ,, 3 ,, ,2, u 2 
“,6,"6",7,"7“,5,"5",4,“4" 

15 DATA 12, "C“ ,13,"D“,15,"F",1 
4,"E",lO,"A",11,"B" 

16 DATA 9,"9",8,"8","A","B","C 
","D","E","F","G","H" 

17 LET CTRL=2: DIM Zx(8,13) 

18 FOR 1=1 TO 8: READ Zx(I) 

19 NEXT I 

20 DATA "VYTVORIT:","ClST Z MG 
F","ULOZIT NA MGF","OPRAVIT","ZO 
BRAZIT","VYTISKNOUT" 

21 DATA “MINIMALIZOVAT","INVER 
TOVAT" 

22 CLS . PRINT ' BRIGHT 1," ** 
********** BAJT ************ " 

23 PRINT AT 2,3;"PROGRAM PRACE 
S TABULKOU" 

24 PRINT BRIGHT 1; " Zbynek 
CALABA Praha 4 - 1988 " 

25 PLOT 0,168: DRAW 255,0 

26 DRAW 0,-25= DRAW -255,0 

27 DRAW 0,25 

28 PRINT '"TAB 1; BRIGHT 1; "M 4 * 

OZNOSTI PROGRAMU:"' BRIGHT O," " ■■ 





2? FOR 1=1 TO CTRL * 

30 PRINT " "; I; u - TABULKU "; 
2MCI): NEXT I 

31 NEXT I- 

32 PLOT 0/120: DRAW 255,0 

33 DRAW 0,-90: DRAW -255,0 

34 DRAW 0,90 

35 PRINT #0; FLASH 1; BRIGHT 1 
;"VOLTE, prosim!" 

36 BEEP .1,12 

3? LET i*=INKEY* 

38 IF i*=*••• THEN GO TO 37 

39 LET i=CODE ix 


40 

IF 

i>56 OR i<48 

THEN 

GO TO 

37 







41 

IF 

ix="l" 

THEN 

GO 

SUB 51: 

GO TO 

oo 






42 

IF 

iH="2" 

THEN 

GO 

TO 

106 

43 

IF 

VAL ix 

>ctrl 

THEN 

GO TO 

37 







44 

IF 

ix="3" 

THEN 

GO 

TO 

126 

45 

IF 

iw=*'4» 

THEN 

GO 

SUB 73. 

GO TO 

22 






46 

IF 

ix=“5" 

THEN 

GO 

TO 

89 

47 

IF 

ix="6" 

THEN 

GO 

SUB 137= 

GO TO 22 





48 

IF 

ix=»7" 

THEN 

GO 

TO 

171 

49 

IF 

ix=“8" 

THEN 

GO 

TO 

208 

50 

GO 

TO 37 





51 

LET 

X=1 : 

GO SUB 

214 



52 RANDOMIZE USR 33557: REM m 
1 ovarii 

53 PRINT '"Pro popis tabulky z 
adavejte term"'"(pozici '1' v ta 
bulce)." 

54 PRINT '"Samotny ENTER ukonc 
i vstup dat." 

55 BEEP .05,12 

56 LET jx="Prosim term" 

57 GO SUB 113 

58 IF i>255 THEN GO TO 63 

59 LET m=PEEK (t+i) 

60 IF m = 48 THEN POKE <t+i), 
49: GO TO 55 

61 PRINT #0;"DUPLICITA!" 

62 BEEP .5,1. GO TO 55 

63 GO SUB 90 

64 BEEP .1,5: BEEP .1,9 

65 BEEP .1,12 

66 INPUT "V poradku <A/N)?",ix 

67 IF Ix=“A" THEN LET ctrl=8: 
GO TO 22 

68 IF Ix<>“N“ THEN BEEP .5,1: 
GO TO 64 

69 BEEP .1,12 

70 INPUT “Opravit - znova (0/Z 
>.?", iw 

71 IF Ix="Z" THEN GO TO 51 

72 IF lx<>"0“ THEN BEEP .5,1: 
GO TO 69 

73 LET X=4: GO SUB 214 

74 PRINT '"Samotny ENTER ukonc 
i vstup dat." 

75 PRINT AT 19,0;" 

76 BEEP .©5,12 

77 LET jx="Pozice v tabulce" 

78 GO SUB 113: LET j=i 

79 IF i>255 THEN GO TO 63 

80 LET m=PEEK (t+j) 

81 PRINT AT 19,0;"TAB(";ix;")= 
";CHRx m 

82 BEEP .05,12 

83 LET jx="Nova hodnota" 

84 GO SUB 113 

85 IF i=999 THEN, LET i=0 

86 POKE < t+j),48+i 

87 IF i<0 OR i>l THEN BEEP .5 
,1: GO TO 83 

88 GO TO 75 

89 GO SUB 90: GO TO 123 

90 LET X=5: GO SUB 214 

91 PRINT '" ";: FOR 1=1 TO 16 

92 PRINT BRIGHT l;Ex(I); 

93 NEXT I 

94 PRINT : FOR 1=0 TO 15 

95 PRINT BRIGHT l;Ex<I+l); 

96 FOR J=0 TO 15 

97 LET M=PEEK < t+e(J+l)+16#e(I 
+ 1 )) 

98 PRINT CHRx m; 

99 NEXT j: PRINT : NEXT I 


100 RETURN 

101 PRINT #0/"Stop MGF, prosim! 
PAUSE 235= RETURN 

102 INPUT "Jmeno tabulky (max. 

6 znaku): “,ix 

103 IF LEN ix>6 THEN BEEP .5,1 
= GO TO 102 

104 IF LEN ix«0 THEN RETURN 

105 LET ix=ix+“.TAB": RETURN 

106 LET X=2: GO SUB 214 

107 GO SUB 102 

108 PRINT AT 3,0;"Jmeno: ";ix 

109 PRINT #0;"Prosim magnetofon 

j » 

110 LOAD ixCODE t,256 

111 GO SUB 101 

112 LET ctrl=8: GO TO 22 

113 INPUT (jx+“ (hex)>"),ix 

114 IF LEN ix-0 THEN LET i«999 
: RETURN 

115 LET ix=“0»+ix 

116 IF LEN ix>2 THEN LET ix=ix 
(2 TO ): GO TO 116 

117 LET k=CODE ix(l): LET 1-COD 
E ix(2> 

118 LET e*k-(48+(k >57)*39) 

119 LET k-e+((e<0>*32) 

120 LET e=l-< 48+(1>57)*39) 

121 LET l=e+((e<0)*32) 

122 LET i=16*k+l. RETURN 

123 BEEP .1,12 

124 INPUT "Prosim ENTER!"/ix 

125 GO TO 22 

126 LET X—3: CO SUB 214 

127 GO SUB 102 

128 IF LEN ix<>0 THEN GO TO 13 

1 

129 PRINT #0;"Tabulka musi mit 
jmeno!" 

130 BEEP .5,1: CO TO 127 

131 PRINT " "Jmeno = ";ix 

132 SAVE ixCODE t,256 

133 INPUT "Veritikovat (A)?“,jx 

134 IF jx<>"A" THEN CO TO 22 

135 PRINT "Veritikace dat 
VERIFY ixCODE t,256 

136 PRINT "Data o.k." : GO TO 12 
3 

137 LET X=6: GO SUB 214 

138 GO SUB 153 

139 LPRINT 

140 FOR 1=1 TO 16. 

141 LPRINT Ex(I);" "; 

142 NEXT I, LPRINT 

143 LPRINT - "; 

144 FOR 1=0 TO 15: LPRINT 

145 NEXT I. LPRINT 

146 FOR 1*0 TO 15 

147 LPRINT Ex(I+l);" : «; 

148 FOR J=© TO 15 

149 LET M—PEEK <t+e(J+l>+16*e(I 
+1)) 

150 LPRINT m-48;" "; 

151 NEXT j: LPRINT : NEXT I 

152 RETURN 

153 INPUT "Nadpis sestavy=“,jx 

154 LPRINT jx : LPRINT 

155 RETURN 

156 CLEAR 32767 

157 PRINT "AUTOSAVE-GO TO 160“ 

158 LOAD “probajt“CODE 32768,18 
00: RUN 

159 REM autosave programu 

160 CLEAR : SAVE "BAJT" LINE 15 

6 

161 SAVE "probajt"CODE 32768,18 
00 

162 STOP = GO TO 1 

163 PRINT ""JDE 0 TRIVIALNI RE 
SENI" 

164 BEEP .05,5: BEEP .5,9 

165 BEEP .05,5 

166 PAUSE 255: GO TO 22 

167 BEEP 1,1 

168 PRINT '' “Zjistena chyba pr 
ogramu." 

169 PRINT "Doporucuji nahrat pr 
ogram znovu.“ 

170 PRINT "a pred reklamaci opa 
kovat": PAUSE 0: G0 # >0 22 


171 LET X=7: CO SUB 214 

172 PRINT ''"Cekejte, prosim!"' 
""Doha reseni zavisi na slozito 
sti " 

173 PRINT "tabulky. Reseni ohla 
sim!" 

174 RANDOMIZE USR main 

175 LET od=FN a(4) 

176 LET do-^N a(6) 

177 LET rc=PEEK (pgm+8) 

178 IF rc=l THEN GO TO 163 

179 IF rc=3 THEN GO TO 181 

180 IF rc<>0 THEN GO TO 167 

181 CLS : PRINT " FLASH 1; BRI 
GHT 1;"R E S E N I !" 

182 PRINT BRIGHT l""Stisknete 

klavesu." 

183 BEEP .05,5: BEEP .05,9 

184 IF INKEYx-"" THEN GO TO 18 
3 


185 IF rc-3 THEN GO TO 201 

186 CLS , PRINT BRIGHT 1;"L0GI 
CKA FUNKCE (OR-AND):"* PRINT 

187 PRINT GO SUB 191. PRI 

NT “>" 

188 GO SUB 211 

189 IF ix—"A" THEN GO TO 186 

190 GO TO 22 

191 LET i=od: PRINT " (“; 

192 LET j«PEEK (i+l) 

193 FOR k-1 TO 8: LET j«PEEK (i 
+k) 


194 IF j=45 THEN GO TO 197 

195 IF j-48 THEN PRINT "/";qx( 
k);. GO TO 197 

196 IF j-49 THEN PRINT “ ";qx( 
k); 


197 NEXT k: PRINT •)» 

198 LET i-i+10 

199 IF iOdo THEN PRINT "+(“/: 
GO TO 193 

20© RETURN 


201 CLS . PRINT BRIGHT 1;"L0GI 
CKA FUNKCE (NOR-AND):" 

202 PRINT . PRINT BRIGHT !;"/{ 


203 GO SUB 191 

204 PRINT BRIGHT 1;" >“, BEEP 


.05,12 

205 GO SUB 211 

206 IF ix-»A" THEN GO TO 201 

207 RANDOMIZE USR 33572. GO TO 


22 

208 LET X=8. GO SUB 214 

209 RANDOMIZE USR 33572. PAUSE 
10 ‘ 


210 GO TO 89 

211 INPUT "Opakovat vypis resen 
i (A>? ";ix 

212 RETURN 

213 BEEP .1,12. CLS . RETURN 

214 GO SUB 213. PRINT BRIGHT 1 
;“TABULKU ";zx(x> 

215 RETURN 


Vypis 2. Podprogram (921-V2) 


Vypis s 

kontrolou 




8000 

09 

80 

00 

84 

3B 

88 

4F 

88:79 

8008 

03 

F3 

FD 

22 

00 

88 

21 

00:86 

8010 

34 

7E 

2C 

28 

05 

BE 

20 

07.62 

8018 

18 

F8 

3E 

01 

C3 

5E 

82 

AF.6F 

8020 

32 

08 

80 

21 

00 

84 

01 

00.- IE 

8028 

00 

3E 

31 

BE 

20 

01 

04 

23 :B7 

8030 

OD 

20 

F8 

3E 

80 

B8 

30 

1C:FF 

8038 

3E 

03 

32 

08 

80 

21 

00 

84.22 

8040 

01 

31 

30 

7E 

B8 

20 

03 

71:94 

8048 

18 

05 

B9 

C2 

57 

82 

70 

23: EO 

8050 

2C 

2D 

20 

EF 

21 

00 

00 

22: CD 

8058 

37 

88 

22 

39 

88 

3E 

01 

B8: AB 

8060 

28 

B8 

AF 

32 

00 

87 

01 

FF =74 

8068 

00 

11 

01 

87 

21 

00 

87 

ED: DC 

8070 

BO 

21 

3B 

88 

22 

04 

80 

22: A6 

8078 

06 

80 

11 

00 

84 

1A 

FE 

31:C6 

8080 

20 

09 

21 

00 

86 

6B 

6E 

26: AD 

8088 

87 

36 

FF 

13 

1C 

ID 

20 

ED: 91 

8090 

ll' 

00 

87 

2A 

06 

80 

1A 

3C.1C 

8098 

20 

26 

D5 

16 

85 

1A 

01 

08:53 

80A0 

00 

E5 

23 

07 

F5 

38 

04 

3E.36 

80A8 

30 

18 

03 

3E 

31 

04 

77 

23 = 74 


80BG FI OD 20 EF AF 77 El ?0:?A 
80B8 01 OA 00 09 22 06 80 D1.77 
80C0 13 1C ID 20 D1 CD C6 32.6A 
80C8 FE 00 C2 57 82 2A 06 80 .-45 
80D0 22 08 88 22 06 88 3E 08:38 
80D8 F5 FB 3E 7F DB FE IF 38 = 4D 
80E0 03 C3 56 82 F3 ED 4B 06:47 
80E8 30 2A 04 80 CD 67 82 CA.CC 
80F0 56 82 3E 08 11 13 88 ED:85 
80F8 53 02 88 F5 2A 02 88 7E:F2 
8100 23 B6 CA FD 81 23 7E 23:5D 
8108 B6 CA FD 81 DD 2A 02 88:7D 
8110 QD 6E 00 DD 66 01 E5 DD:31 
8118 2A 02 38 DD 5E 02 DD 56:AA 
8120 03 D5 E5 D5 E5 D5 AF 08=71 
8128 AF 32 OA 38 11 OB 88 D5=58 
8130 23 DD El 01 08 00 ED B0=4B 
8138 OE 08 D1 El E5 D5 EB DD=30 
8140 2B 13 23 DD 23 1A BE 28=69 
8148 15 08 3C FE 02 28 21 08=DC 
8150 FE 2D 28 18 3E 2D BE 28=66 
8158 05 DD 77 00 18 OE DD 7E.1A 
8160 00 FE 31 20 07 3A OA 38=50 
8168 3C 32 OA 88 OD 20 D2 08=7B 
8170 DD El FD El FE 01 20 53=AC 
8178 3E FF DD 77 09 FD 77 09=El 
8180 E5 D5 C5 ED 4B 08 38 2A=F9 
8188 06 38 CD 67 32 28 23 22=8F 
8190 04 88 OE 09 11 OA 38 1A=02 
8198 BE 20 07 13 23 OD 20 F7=73 
81A0 18 26 01 OA 00 2A 04 88=93 
81A8 09 ED 4B 03 38 CD 67 32=07 
81B0 20 DD 2A 08 88 E5 01 0A=B9 
81B8 00 09 22 08 88 D1 01 09=72 
81CO 00 21 OA 88 ED BO AF 12=43 
81C8 Cl D1 El D1 El D1 EB DD=26 
81D0 2A 02 88 DD 46 15 DD 4E=BD 
81D8 14 CD 67 32 28 08 01 0A=17 
81E0 00 09 EB C3 21 81 El DD =BD 
81E8 2A 02 88 DD 46 13 DD 4E=BB 
81F0 12 CD 67 82 28 07 01 OA=IE 
81F8 00 09 C3 16 31 CD 8F 82=9D 
8200 FI 2A 02 38 23 23 22 02=71 
8208 38 3D C2 FB 80 CD 8F 82=CC 
8310 2A 06 30 ED 5B 04 80 37=A9 
8218 3F ED 52 E5 Cl 2A 08 88=0E 
8220 ED 5B 06 38 37 3F ED 52=3F 
8228 CD 67 82 20 18 2A 04 30=BE 
8230 ED 5B 06 88 ED 4B 06 80=18 
8238 1A BE 20 09 23 13 CD 67=17 
8240 82 28 18 18 F3 CD 6D 82=7B 
8248 CD C6 32 FE 00 20 07 FI=A1 
8250 3D C2 D8 80 18 01 El 3E=61 
8258 02 18 03 FI 18 03 32 08=C9 
8260 30 FD 2A 00 88 FB C9 7C=91 
8268 B8 CO 7D B9 C9 ED 4B 06=D5 
8270 88 C5 ED 5B 04 80 2A 08=5D 
8278 88 37 3F ED 42 E5 Cl El = EA 
8280 ED BO ED 53 06 38 ED 53=D3 
8288 06 30 ED 53 08 88 C9 DD = AC 

829© 2A 02 88 DD 6E 00 DD 66=A8 

8298 01 7D B4 C8 E5 FD El 3E=C7 

82AO FF FD BE 09 28 10 ED 5B=3B 

82A8 08 88 01 OA 00 ED BO ED = 3B 

82B0 53 08 38 FD E5 El DD 46=B1 

82B8 13 DD 4E 12 CD 67 82 C8=72 

82C0 11 OA 00 19 18 D6 FD E5=D4 

82C8 DD 21 11 88 FD 21 23 38=12 

82D0 21 13 88 AF 77 E5 D1 13=45 

82D8 01 24 00 ED BO 2A 04 30=D6 

82E0 11 OA 00 ED 4B 06 80 3E=05 

82E8 FF 08 08 BE 28 16 DD 23=81 

82F0 DD 23 FD 23 FD 23 3C FE=3C 

82F8 09 28 17 BE 20 FO DD 75=F0 

8300 00 DD 74 01 FD 75 00 FD = DD 

8308 74 01 08 19 CD 67 32 20=6C 
8310 D9 AF FD El C9 3E 30 21=3C 
8318 00 84 E5 D1 13 77 01 FF = 2A 
8320 00 ED BO C9 21 00 34 01= 30 
8328 31 30 7E B8 20 03 71 13=3D 
8330 01 70 23 2C 2D 20 F3 C9=49 
8338 00 00 00 00 00 00 00 00=00 
8340 OO 00 00 00 00 00 00 00=00 
8348 OO 00 00 00 00 00 00 00=00 
8350 00 00 00 00 00 00 00 00=00 
8358 00 00 00 00 00 00 00 00=00 
8360 00 CD 3C 82 00 00 2A 06=EF 

8368 80 C3 10 82 00 00 00 00=D1 
837© 00 00 00 00 00 00 00 00=00 
8378 00 00 OO 00 00 00 00 00=00 
838© 00 00 00 00 00 00 00 00=00 
8388 00 00 00 00 00 00 00 00=00 


8390 00 00 00 00 00 00 00 00.00 
8398 00 00 00 00 00 00 00 00=00 
83A0 00 00 00 00 00 00 00 00=00 
83A8 00 00 00 00 00 00 00 00=00 
83B0 00 00 00 00 00 00 00 00=00 
83B8 00 00 00 00 00 00 00 00=00 
83C0 00 00 00 OO 00 00 00 00=00 
83C8 00 OO 00 00 00 00 00 00=00 
83D0 OO 00 00 00 00 00 00 00=00 
83D8 00 00 00 00 00 00 00 00=00 
83E0 00 00 00 00 00 00 00 00=00 
83E8 00 00 00 00 00 00 00 00=00 
83F0 00 00 00 00 00 00 00 00=00 
83F8 00 00 00 00 00 00 00 00=00 


Vypis 3. Tabulka (921-V3) 


Vypis s kontrolou 
8500 00 01 02 04 08 10 20 40.7F 

8508 80 03 05 06 09 OA OC 11.9E 

8510 12 14 18 21 22 24 28 30=21 

8518 41 42 44 48 50 60 81 82.3C 

8520 84 88 90 AO CO 07 OB OD.FD 

8528 OE 13 15 16 19 1A 1C 23=22 

8530 25 26 29 2A 2C 31 32 34=IB 

8538 38 43 45 46 49 4A 4C 51=66 

8540 52 54 58 61 62 64 68 70=21 

8548 83 85 86 89 8A 8C 91 92.0C 

8550 94 98 A1 A2 A4 A8 BO Cl=72 

8558 C2 C4 C8 DO EO OF 17 1B.FD 

8560 ID IE 27 2B 2D 2E 33 35.0A 

8568 36 39 3A 3C 47 4B 4D 4E.06 

8570 53 55 56 59 5A 5C 63 65=09 

8578 66 69 6A 6C 71 72 74 78=06 

8580 87 8B 8D 8E 93 95 96 99=06 

8588 9A 9C A3 A5 A6 A9 AA AC=09 

8590 B1 B2 B4 B8 C3 C5 C6 C9.06 

8598 CA CC D1 D2 D4 D8 El E2.0A 

85A0 E4 E8 FO IF 2F 37 3B 3D.FD 

85A8 3E 4F 57 5B 5D 5E 67 68=72 

85B0 6D 6E 73 75 76 79 7A 7C.0C 

85B8 8F 97 9B 9D 9E A7 AB AD=21 

85C0 AE B3 B5 B6 B9 BA BC C7.66 

85C8 CB CD CE D3 D5 D6 D9 DA = IB 

85D0 DC E3 E5 E6 E9 EA EC FI=22 
85D8 F2 F4 F8 3F 5F 6F 77 7B.FD 
85E0 7D 7E 9F AF B7 BB BD BE = 3C 
85E8 CF D7 DB DD DE E7 EB ED=21 
85F0 EE F3 F5 F6 F9 FA FC 7F.9E 
85F8 BF DF EF F7 FB FD FE FF = 7F 
8600 00 01 02 09 03 OA OB 25=2D 
8608 04 OC OD 26 OE 27 28 5D.7F 
8610 05 OF 10 29 11 2A 2B 5E.7D 

8618 12 2C 2D 5F 2E 60 61 A3.C0 

862© 06 13 14 2F 15 30 31 62=58 

86^ 16 32 33 63 34 64 65 A4.E5 

8630 17 35 36 66 37 67 68 A5.EF 

8638 38 69 6A A6 6B A7 A8 DB.22 

8640 07 18 19 39 1A 3A 3B 6C.48 

8648 IB 3C 3D 6D 3E 6E 6F A9.E1 

8650 1C 3F 40 70 41 71 72 AA.FB 

8658 42 73 74 AB 75 AC AD DC=46 

8660 ID 43 44 76 45 77 78 AE=88 

8668 46 79 7A AF 7B BO B1 DD.4D 

8670 47 7C 7D B2 7E B3 B4 DE.53 

8678 7F B5 B6 DF B? EO El F7.E2 

8680 08 IE IF 48 20 49 4A 80.E2 

8688 21 4B 4C 81 4D 82 83 B8.53 

8690 22 4E 4F 84 50 85 86 B9.4D 

8698 51 87 88 BA 89 BB BC E2.88 

86A0 23 52 53 8A 54 8B 8C BD=46 

86A8 55 8D 8E BE 8F BF CO E3.FB 

86B0 56 90 91 Cl 92 C2 C3 E4.E1 

86B8 93 C4 C5 E5 C6 E6 E7 F8.48 

86C0 24 57 58 94 59 95 96 C7.22 

86C8 5A 97 98 C8 99 C9 CA E8.EF 

86D0 5B 9A 9B CB 9C CC CD E9.E5 

86D8 9D CE CF EA DO EB EC F9.58 

86E0 5C 9E' 9F D1 AO D2 D3 ED = CO 

86E8 A1 D4 D5 EE D6 EF FO FA.7D 
86F0 A2 D7 D8 FI D9 F2 F3 FB.7F 
86F8 DA F4 F5 FC F6 FD FE FF = 2D 


Vypis 4. Program ,,HEXLOAD" (921-V4) 


1 REM ****#******#*#***konec 

2 FOR i=23760 TO 23776 

3 READ a = POKE i,a = NEXT i 


4 DATA 175/50,224,92/201/58 

5 DATA 224,92/79/58,223,92 

6 DATA 169,24/242/0,0 

7 POKE 23658,8 

8 POKE 23609,120 

9 DIM B<8> 

10 INPUT "ADRESA (HEX)."/Ax 

11 IF LEN Ax<4 THEN LET Ax="0 
"+Ax= GO TO 11 

12 IF LEN Ax>4 THEN LET Ax=Ax 
(2 TO )= GO TO 12 

13 LET 1=1= GO SUB 48 

14 IF D<0 OR D>255 THEN GO TO 
10 

15 LET A=256*D 

16 LET 1=3. GO SUB 48 

17 IF D<© OR D>255 THEN GO TO 
10 

18 LET A=A+D 

19 CLS = PRINT "ADRESA: “;Ax;“ 
= “ ;A 

20 LET A=A-1 

21 INPUT "-DATA- 

- U/ Ax= LET K=0 

22 IF LEN Ax=0 THEN STOP 

23 IF LEN Ax<>19 THEN GO TO 4 
5 

24 IF Ax(17)<>" " THEN GO TO 
45 

25 FOR 1=1 TO LEN Ax-4 STEP 2 

26 GO SUB 48 

27 IF D<0 OR D>255 THEN GO TO 
45 

28 LET K=K+1= LET B(K)=D 

29 NEXT I 

30 REM KONTROLNI SUMA 

31 LET 1=18= GO SUB 48 

32 IF D<0 OR D>255 THEN GO TO 
45 

33 REM TEST 

34 RANDOMI2E USR 23760 

35 FOR 1=1 TO 8 

36 POKE 23775,B(I) 

37 RANDOMI2E USR 23765 

38 NEXT 1= LET I=PEEK 23776 

39 IF IOD THEN GO TO 45 

40 REM UL02IT 

41 FOR 1=1 TO 8 

42 POKE (A+I),B(I) 

43 NEXT 1= LET A=A+9 

44 GO SUB 51= GO TO 20 

45 PRINT Ax'"... CHYBA!" 

46 BEEP 1,1= GO TO 21 

47 REM CTENI HEX 

48 LET D=((CODE Ax(I)-(48+(COD 
E Ax(I)>57)*7)))*16 

49 LET D=D+((CODE Ax(I+l)-(48+ 
(CODE AX(I+1>>57)*7)>> 

50 RETURN 

51 CLS = PRINT “ADRESA. ", 

52 LET D-INT (A/2561 

53 GO SUB 57 

54 LET D=A-256*D 

55 GO SUB 57 

56 PRINT " = ",A = RETURN 

57 LET Ax*”" 

58 LET A1=INT (D/16) 

59 LET A2=D-16*A1 

60 LET Ax=CHRx (48+Al+((Al>9) 
*7)) 

61 LET Ax*Ax+CHRx (48+A2+<(A2 
>9)*7)) 

62 PRINT Ax;= RETURN 


Vypis 5. Program ,,HEXDUMP“ (921-V5) 


1 REM #*##**********4**konec 

2 POKE 23658,8 

3 POKE 23609,120 

4 PRINT "Vypis s kontrolou" 

5 FOR 1=23760 TO 23776 

6 READ A = POKE I,A= NEXT I 

7 DATA 175,50,224/92/201/58 

8 DATA 224/92/79,58/223,92 

9 DATA 169,24,242/0/0 

10 POKE 23658,8= POKE 23609,1 

11 INPUT "STARTSHEX)=",Ax 

12 GO SUB 40 

13 IF A<© THEN BEEP 1,1= GO T 
0 11 




14 LET Q1=A 

15 INPUT "STOP (HEX) • “;Ax 

16 GO SUB 40 

17 IF A<© THEN BEEP 1,1 : GO 
0 15 

18 LET Q2=A 

19 FOR I=Q1 TO <32 STEP 8 

20 RANDOMIZE USR 23760 

21 LET A=INT (1/256) 

22 GO SUB 33 

23 LET A=I-256*A: GO SUB 33 

24 FOR J=0 TO 7 

25 LET A=PEEK (I+J) 

26 POKE 23775,A 

27 RANDOMIZE USR 23765 

28 PRINT " "; : GO SUB 33 

29 NEXT J: PRINT “:“; 

30 LET A=PEEK 23776 

31 GO SUB 33= PRINT 

32 NEXT I: STOP 

33 LET Ak="” 

34 LET A1=INT (A/16) 

35 LET A2=A-16*A1 


36 LET Ax=CHRx (48+A1+((Al>9>* 
7) ) 

37 LET Ax=Ax+CHRx (48+A2+((A2> 
9) *7) ) 

38 PRINT Ax; 

39 RETURN 

40 IF LEN Ax<4 THEN LET Ax=“0 
"+AX: GO TO 40 

41 IF LEN Ax>4 THEN LET Ax=Ax 
(2 TO ), GO TO 41 

42 LET 1=1. GO SUB 48 

43 GO SUB 47 

44 LET A=256*D: LET 1=3 

45 GO SUB 48: LET A=A+D 

46 GO SUB 47: RETURN 

47 IF D<0 OR D>255 THEN LET 
A=—1: RETURN 

48 LET D=<(CODE ax(i)-(48+(C0 
DE a«(i)>57)*7))>*16 

49 LET D=D+((CODE ax(i+l)-(48 
+(CODE ax(i+l)>57)*7))) 

50 RETURN 


PRIZ -adresa obsahuje priznak, ktery 
urcuje presne misto zapisu, resp. 
cteni, ktere bude pouzito (viz 

obr. 1). 

Pri stalem zapisovani resp. cteni si pro¬ 
gram obsahy ADR a PRIZ meni sam. Kdyz 
pouzijete konstantni obsah SLOVO, staci 
vkladat delku a pouzitou tabulku. Pri zapiso¬ 
vani, resp. cteni z prostredka (trideni, vyhle- 
davani, prerusene vkladani) muzete vyuzit 
algoritmus pro vypocet adresy a priznaku. 
Obecne vypocitame K-tou polozku l-te vety 
(viz obr. 2). 

Hlavni vyhody programu: 

- maximalni vyuziti pameti, 

- setri 38% pameti, 

- pro zpracovani je pristupno vetsi mnoz- 
stvi dat. 

Nevyhody: 



Martin Preisler, Rude armady 684, 293 01 Mlada Boleslav 

Pri vytvarem databazi jsem zacal premyslet jak do pameti SPECTRA 
vlozit vice dat, aniz bych rozsiroval pamet’. Nejdnve jsem zkratil 
program, ale moc rrrista jsem tim neusetril. Pak jsem si uvedomil, ze 
delka jednoho ASCII znaku je 8 bitu, pricemz vsechny nejsou vyuzity 
(staci si prohlednout tabulku ASCII). 


Proto jsem se rozhodl vytvorit novy znako- 
vy soubor - ve zkracene forme. Nazval jsem 
jej MDAT (minidata). Abych usetril co nejvet- 
si prostor pameti, zvolil jsem jako delku 
jednoho znaku 5 bitu. To umoznuje ale pou- 
ze 32 znaku. Rozdelil jsem tedy udaje vdata- 
bankach na nenumericke (skladaji se z pis- 
men A-Z, carky, tecky, mezery, dvojtecky, 
pomlcky, apostrofu) a ciselne. To vyzaduje 
dvoji sadu znaku. 

Tricet dva cislic neexistuje, proto jsem 
ciselne znaky doplnil matematickymi opera- 
tory (krat, plus, minus, lomeno, sipka, leva 
a prava zavorka, desetinna tecka), nektery- 
mi funkcemi vkladanymi v rozsirenem modu 
(COS, INT, ABS, SIN, SQR, LN, EXP, PI, 
ASN, ACS) a pismeny (A, B, C, E). Coz 
umozni uchovavat nejruznejsi vzorce pro 
promenne A, B, C (E oznacuje exponent) 
a pri pouziti funkce VAL ziskat primo hodno- 

ty- 

Pak jsem musel vymyslet program, ktery 
by normalni ASCII znaky prevadel do pameti 
jako MDAT a naopak. Aby byl program rych- 
ly, vytvoril jsem ho ve strojovem kodu mikro- 
procesoru Z80. Vychazel jsem z obr. 1. 
Takto ulozenych 8 znaku by se stale opako- 
valo. Proto jsem rozdelil program na 16casti 
(8 pro zapis do pameti a 8 pro cteni) podle 
priznaku. Program jsem se snazil maximal- 
ne zjednodusit. Znaky, ktere nejsou v dane 


tabulce znaku, program pfepise na (mi¬ 
nus). Vyznamy nekterych symbolu: 

ZAPIS -adresa zacatku programu pro 
zapis dat; 

PRECTI -adresa zacatku rutiny pro cteni 
dat; 

TAB -adresa obsahuje adresu pouzi- 
vane tabulky nove vytvorenych 
znaku. V mem pripade PISMO 
(nenumericke znaky) - adresa 
TAB+357 a CISLA (numericke) 
= adresa TAB+421. Tabulku si 
muzete vytvorit svou vlastni 
(i vice), ale zachovavejte poradi 
- znak, kod, poslednim znakem 
musi byt minus; 

SLOVO -adresa obsahuje adresu, z ktere 
se pri zapisu bude cist ASCII rete- 
zec a na kterou se pri cteni bude 
zapisovat ASCII retezec; 

DELKA -adresa obsahuje delku retezce, 
z toho vyplyva omezeni pro delku 
na 255 znaku; 

ADR -adresa obsahuje adresu, na kte¬ 
rou se bude zapisovat, nebo ze 
ktere se bude cist; 


1. byte 2. byte 3. byte 4. byte 5. byte 


r-T-T-T-T-1 

L 







































c 

L 

1. znak 

\J_znak_ 

3. znak 

l 4 .:. znak J 

5. znak 

6. znak 

7. znak 

8. znak 


pfiznak: 1 4 7 10 13 16 19 22 


- pomalejsi proces cteni, zapisu a vyhleda- 
vani (pomalejsi neznamena'pomaly, ca- 
sove ztraty jsou vcelku zanedbatelne), 

- nemoznost pouziti cislic a pismen v jed- 
nom udaji. 



Obr. 2. Algoritmus pro vypocet adresy a pri- 
znaku (919-2) 

(D(J) - delka J-teho udaje, PADR - prvni adresa 
datoveho souboru, P - pnznak, A - adresa pro zapis- 
-cteni znaku). 


Vypis 1. Zdrojovy text programu (919-V1) 


919-V1 


TAB 

64000 

SLOVO 

TAB+2 

ADR 

TAB+4 

DELKA 

TAB+6 

PRIZ 

TAB+7 

ORG 

TAB+8 

CALL 

ZAC 

PUSH 

BC 

LD 

C,(HL) 

PUSH 

HL 

LD 

HL f (TAB) 

CALL 

NAJDI 

INC 

HL 

'LD 

C,(HL) 

LD 

HL,(ADR) 

LD 

A, (HL) 


Obr. 1. Princip ukladani znaku (919-1) 









LD 

IX,A2+1 


RL 

B 


DEC 

HL 

DEFB 

'B',1 


ADD 

IX,DE 


ADD 

A,C 


LD 

A, (HL) 

DEFB 

'C',2 

A2 

JP 

(IX) 


LD 

(HL),A 


POP 

HL 

DEFB 

'D',3 


JP 

Z1 


INC 

HL 


LD 

(HL),A 

DEFB 

'E',4 


JP 

Z2 


LD 

A,(HL) 


INC 

HL 

DEFB 

'F',5 


JP 

Z3 


AND 

1111110B 


POP 

BC 

DEFB 

'G',6 


JP 

Z4 


ADD 

A,B 


DJNZ 

B1 

DEFB 

'H',7 


JP 

Z5 


JP 

A3 


LD 

HL,PRIZ 

DEFB 

'I* ,8 


JP 

Z6 

Z6 

AND 

11000001B 


LD 

(HL),E 

DEFB 

■J',9 


JP 

Z7 


RLC 

C 


RET 


DEFB 

•K 1 ,10 


JP 

Z8 


ADD 

A,C 




DEFB 

1 L',11 

A3 

LD 

(ADR),HL 


JP 

A4 

ZAC 

LD 

D,00H 

DEFB 

•M',12 

A4 

LD 

(HL),A 

Z7 

AND 

00111U1B 


LD 

A,(DELKA) 

DEFB 

1 N',13 


INC 

E 


LD 

B,A 


LD 

B,A 

DEFB 

'O',14 


INC 

E 


LD 

A,00H 


LD 

HL,PRIZ 

DEFB 

'P',15 


INC 

E 


RR 

C 


LD 

E,(HL) 

DEFB 

'Q',16 

A5 

POP 

HL 


RRA 



LD 

HL,(SLOVO) 

DEFB 

'R',17 


INC 

HL 


RRC 

C 


RET 


DEFB 

'S',18 


POP 

BC 


RRA 





DEFB 

'T',19 


DJNZ 

A1 


ADD 

A,B 

NAJDI 

LD 

A, (HL) 

DEFB 

'O',20 


LD 

HL,PRIZ 


LD 

(HL) r A 


CP 

45 

DEFB 

'V',21 


LD 

(HL),E 


LD 

A,C 


RET 

Z 

DEFB 

•W ,22 


RET 



AND 

00000111B 


CP 

C 

DEFB 

'X',23 

Z1 

AND 

11100000B 


LD 

B,A 


RET 

Z 

DEFB 

'Y',24 


ADD 

A,C 


INC 

HL 


INC 

HL 

DEFB 

'Z',25 


JP 

A4 


LD 

A, (HL) 


INC 

HL 

DEFB 

' ',26 

Z2 

AND 

00011111B 


AND 

11111000B 


JP 

NAJDI 

DEFB 

':',27 


LD 

B,A 


ADD 

A,B 

C2 

INC 

HL 

DEFB 

'.',28 


LD 

A,C 


JP 

A3 


LD 

B,(HL) 

DEFB 

',',29 


LD 

C,00H 

Z8 

AND 

00000111B 


RR 

B 

DEFB 

"",30 


RLCA 



RLC 

C 


RRA 


DEFB 

'-',31 

— 

RLA 



RLC 

C 

C52 

RR 

B 




RLA 



RLC 

C 


RRA 





RLA 



ADD 

A,C 


RRA 


CISLO DEFB 

0,0 


RL 

C 


LD 

(HL) f A 


RRA 


DEFB 

1,1 


RLCA 



INC 

HL 


RRA 


DEFB 

2,2 


RL 

C 


LD 

(ADR) f HL 


JP 

B2 

DEFB 

3,3 


AND 

11100000B 


LD 

E,01H 

C3 

RRA 


DEFB 

4,4 


ADD 

A,B 


JP 

A5 

C6 

RRA 


DEFB 

5,5 


LD 

(HL), A 





JP 

B3 

DEFB 

6,6 


INC 

HL 

PRECTI 

CALL 

ZAC 

C4 

RLCA 


DEFB 

7,7 


LD 

A,(HL) 

B1 

POSH 

BC 


INC 

HL 

DEFB 

8,8 


AND 

U111100B 


POSH 

HL 


LD 

A,(HL) 

DEFB 

9,9 


ADD 

A,C 


LD 

HL,(ADR) 


RLA 


DEFB 

'*',10 


JP 

A3 


LD 

Af(HL) 


JP 

B2 

DEFB 

'•Ml 

Z3 

AND 

10000011B 


LD 

IX,XX+1 

C5 

INC 

HL 

DEFB 

'+',12 


RLC 

C 


ADD 

IX,DE 


LD 

B,(HL) 

DEFB 

1 1 ,13 


RLC 

C 

XX 

JP 

(IX) 


JP 

C52 

DEFB 

V ,14 


ADD 

A,C 


JP 

B3 

C7 

INC 

HL 

DEFB 

'(',15 


JP 

A4 


JP 

C2 


LD 

Bf(HL) 

DEFB 

1 )',16 

Z4 

RLCA 



JP 

C3 


RLCA 


DEFB 

'A',17 


RR 

C 


JP 

C4 


RL 

B 

DEFB 

'B*,18 


RRA 



JP 

C5 


RLCA 


DEFB 

'C',19 


LD 

(HL),A 


JP 

C6 


RL 

B 

DEFB 

'E',20 


INC 

HL 


JP 

C7 


LD 

A,B 

DEFB 

179,21;COS 


LD 

A,(HL) 


JP 

C8 


JP 

B2 

DEFB 

186,22;INT 


AND 

11110000B 

B2 

LD 

(ADR),HL 

C8 

RRA 


DEFB 

189,23;ABS 


ADD 

A,C 

B3 

INC 

E 


RRA 


DEFB 

178,24?SIN 


JP 

A3 


INC 

E 


RRA 


DEFB 

187,25?SQR 

Z5 

LD 

B,00H 


INC 

E 


INC 

HL 

DEFB 

184,26;LN 


AND 

000011116 

B4 

AND 

00011111B 


LD 

(ADR),HL 

DEFB 

185,27?EXP 


RLC 

C 


LD 

C,A 


LD 

E,1 

DEFB 

167,28;PI 


RLC 

c 


LD 

HL,(TAB) 


JP 

B4 

DEFB 

181,29;ASN 


RLC 

c 


INC 

HL 




DEFB 

182,30?ACS 


SLA 

c 


CALL 

NAJDI 

PISMO 

DEFB 

•A* ,0 

DEFB 

'-',31 


15 








Pavel KriZ, Palaskova 1107/2, 180 00 Praha 8 

Grafika je souhrn podprogramu tvoncich graficky system. S jejich pomoci muzete snadno vytvaret ruzne 
obrazky, schemata, grafy apod. Podprogramy umozriuji transformovat souradny system, kreslit cary 
a jednoduche obrazce, menit barvy, vyplnovat uzavrene obrazce. Kreslit muzete na celou plochu obrazovky 
o velikosti 256x192 bodu. 

System je vytvoren jako knihovna podprogramu pfizpusobena pro Hisoft Pascal 4T. Tuto knihovnu muzete " 
dale podle sve potreby rozsirovat. 


Pfehled podprogramu 

Podle cinnosti Ize podprogramy rozddlit 
do peti cast!: 


YSYM: INTEGER; 

GALFA, GDETER, XCO, XSC, XSH, XTR1, 
XTR2, XTR3, YCO, YSC, YSH, YTR1, 
YTR2, YTR3: REAL. 


Parametry musi byt v rozmezi 
0 < = PAT <= 255 
-7 <= RP < = 7. 

-PFiklady vzorku: BIN 01010101 = 85, 
BIN 00010001 = 17. 


1) Organizacni podprogramy: 


GINIT 

nastavi implicitni hodno¬ 
ty, 

WINDOW 

definuje velikost okenka 
pro kresleni, 

CLS 

vymaze obrazovku, 

CLW 

vymaze okenko, 

LTYPE 

definuje druh car, 

DTYPE 

definuje zpusob zobra¬ 
zeni bodu a dar, 

PATTERN 

definuje vzorek pro vy- 
plnovani a jeho rotaci, 

AT 

INK,PAPER 

nastavi polohu tisku, 

BRIGHT,FLASH 

nastavi barvy pro kresle¬ 
ni, 

zmeni barvu okraje obra¬ 
zovky. 

BORDER 

2) Transformadni podprogramy: 

SCALE 

nastavi meritka os, 

COORD 

nastavi podatek sourad- 
neho systemu, 

TURN 

natoci souradny system, 

SYMMET 

nastavi symetrii, 

SHIFT 

provede posunuti od po- 
catku COORD. 

3) Kreslici podprogramy: 

CURSOR 

nastavi kurzor, 

PLOT 

DRAW,LINETO, 

nakresli bod, 

LINE 

nakresli primku, 

TRIA 

nakresli trojuhelnik, 

TETRA 

nakresli ctyruhelnik, 

BOX 

nakresli obdelnik rovno- 
bezny s osami x a y, 

BOW 

nakresli oblouk, 

CIRCLE 

nakresli kruznici, 

FILL 

vyplni uzavreny obrazec, 

PAINT 

4) Funkce: 

vyplni uzavreny obrazec 
zadanym vzorkem. 

POSIT 

posice kurzoru, 

POINT 

informace o bodu. 


Popis podprogramu 

1) Organizadni podprogramy: 

GINIT 

Tento podprogram musite vyvolat pFed 
pouzitim ostatnich podprogramu. GINIT pro- 
vede nastaveni implicitnich hodnot: 

WINDOW (0,0,255,191,0,0); cela obrazovka. 

SCALE (1,1); meritko 1:1 pro x i y. 

COORD (0,0,); pocatek zustane 

SHIFT (0,0); v levem dolm'm rohu. 

SYMMET (0,0); TYRN (0); osy j$ou totozne s okraji 
obrazovky. 

DTYPE (1); LTYPE (1); plnacara. 

PATTERN (1,1); jednoduchy vzorek. 

WINDOW (XMIN,YMIN,XMAX,YMAX, 
X0,Y0: INTEGER) 

Definuje polohu okenka na obrazovce. 
Stred souradnic se nastavi ve vzdalenosti 
| X0,Y01 od leveho dolniho rohu okenka. 
Parametry jsou nezavisle na nastavenem 
meritku. 

Parametry musite zadat tak, aby platilo 


AT (LIN,COL: INTEGER) 

NastaYi tiskovou pozici na radek LIN 
a sloupec COL. 

INK (kINTEGER) 

PAPER (P:INTEGER) 

BRIGHT (B:INTEGER) 

FLASH (F:INTEGER) 

Tdmito podprogramy se nastavi dodasnd 
aktivni barvy. Dovolend parametry jsou 0 az 
9 pro INK a PAPER, 0,1,8 pro BRIGHT 
a FLASH. Vyznam parametru viz manual ZX 
Spectra. 

BORDER (B: INTEGER) 

Timto podprogramem zmdnite barvu 
okraje obrazovky. Dovolene hodnoty jsou 
0 at 7. 

2) Transformadni podprogramy: 

SCALE (SX,SY: REAL) 

Nastavi mdFitko SX:1 pro osu x a SY:1 pro 
osu Y. NepFipustnym parametrem je 0. M§- 
rftko ovlivhuje dale uvedene transformace. 


0 <= XMIN < = XMAX < = 255 0<= X0<= XMAX-XMIN 
0 <- YMIN <= VMAX <= 255 0 <= XO <= YMAN-YMIN 

CLS 

Vymaze obrazovku, prenese docasnd 
barvy do trvalych a vyplni jimi obrdzovku. 
Nastavi tisk do leveho horniho rohu, kurzor 
pro kresleni nastavi do bodu 10,01. 

CLW (FRAME: BOOLEAN) 

Vymaze okenko definovane pfikazem 
WINDOW. Parametrem FRAME si zvolite, 
ma-li se okenko ohranidit ramedkem 
(TRUE). 

LTYPE (LT: INTEGER) 

Definuje druh dar: 


1 .plna d&ra, 

2 .darkovana dara, 

3 .tedkovan^ d^ra. 


COORD (X0,Y0: REAL) 

Nastavi podatek souFadneho systemu. 
X0.Y0 je posunuti od stFedu zadaneho pod¬ 
programem WINDOW. 

K bodu COORD se vztahuji dcile uvedene 
transformace. 


obrazovka 1255,191] 


! okenko I x max, y max] 

I-1-1 

pi ! 

| I-y-j 1- -X, 

I_r__! 

[x MIN-Ymin] 


lo.ol 


5) Interne pouzivane procedury a funkce: 

V teto casti jsou podprogramy prizpusobe- 
ni a pomocne podprogramy pouzivane 
. v castech 1 az 4. Pro uplnost uvadim i jejich 
seznam: 

CURSORO, DRAW0, FILL0, INVERSE, 
OVER, PAINT0, POINTO, RAN¬ 
GE, ROT, TRANS, TRCONST. 

System pouziva globalni promenne: 

_ _ GDTYPE, GLTYPE, GPAT, GROT, XMAN, 
1 O XMJN, XOS, XSYM, YMAX, YMIN, YOS, 


DTYPE (DT: INTEGER) 

Definuje zpusob zobrazeni bodu a dar: 


0 .vymazavani (INVERSE 1), 

1 .. plna dara, 

2 .zmdna bodu (OVER 1). 


PATTERN (PAT.RP: INTEGER) 

Temito parametry se Fidi zpusob vyplfto- 
vani uzavFeneho obrazce podprogramem 
PAINT. 

PAT je osmibitovy vzorek, ktery je v binar- 
nim tvaru ,,naskladan“ do vodorovnd linky. 

RP ovlivfiuje rotaci vzoru pFi pFechodu na 
vysdi linku. Vzorek se posune o RP bitu 
vpravo (pro RP<0 o | RP | bitu vlevo). 


okenko: 
















TURN (ALFA: REAL) 

Souradny system se otofii okolo bodu 
COORD o ALFA stuphu (proti srrteru hodino- 
vych rudidek). 

SYMMET (SX.SY: INTEGER) 

Nastavi se symetrie: 

(1,0) .podle osy x, 

(0,1) .podle osy y, 

(1,1) .podle podatku, 

(0,0) .zruSeni symetrie. 

SHIFT (SX.SY: REAL) 

V natodenem svstemu souradnic se bod 
10,01 posune ve vzdalenosti | SX.SY | od 
bodu COORD. 

Uvedene transformadni podprogramy 
provadeji pouze nastavovbni potrebnych 
hodnot. Pri opakovanem voteni plati vidy 
poslednl zadana hodnota, na niz predchozi 
nema zadny vliv. Na poradi volani transfor- 
madnich podprogramu nezblezi. 

Transformace se zru§i vyvolanim podpro¬ 
gramu s nulovymi hodnotami (pro nteritko 
s hodnotami (1,1)). 

Znazornbni transformaci je na obr. 1. 

3) Kreslici podprogramy: 

CURSOR (X,Y: REAL) 

Prenese kurzor do bodu | X,Y |. 

V dale uvedenych podprogramech se kur¬ 
zor nastavi do posledniho nakreslenbho 
bodu, u obrazcu (TRIA, TETRA, BOX) zusta- 
ne v prvnim zadanem bodd, po vyplnbni 
(FILL, PAINT) se nastavi do zadanbho vnitf- 
niho bodu. 

PLOT (X,Y: REAL) 

Nakresli bod [ X,Y |. 

DRAW (DX,DY: REAL) 

Nakresli primku od kurzoru do bodu 
■4Xkurzoru+DX, Ykurzoru+DY f. 

LINETO (X2,Y2: REAL) 

Nakresli primku od kurzoru do bodu (X2, 
Y21. 

LINE (X1,Y1,X2,Y2: REAL) 

Nakresli primku z bodu-1XI,Y1 ] do bodu 
|X2,Y2|. 

TRIA (XI ,Y1 ,X2,Y2,X3,Y3,X4,Y4: REAL) 

Nakresli trojuhelnik zadany tremi body. 

TETRA (XI ,Y1 ,X2,Y2,X3,Y3,X4,Y4: REAL) 

Nakresli dtyruhelnik zadany dtyrmi body. 

BOX (X1mY1,X2,Y2: REAL) 

Nakresli obdelnik rovnobezny s osami 
x a y, pridemz body | XI ,Y1 ], [ X2,Y2 ] jsou 
soufadnice uhlopridky. 

BOW (X,Y,R,ALFA,BETA: REAL) 

Nakresli oblouk se stredem v bodb | X,Y ( 
a polomerem R. ZaCatek oblouku svirb s po- 
loosou X+ uhel ALFA. BETA je vnitrni uhel 
oblouku. (Hodnoty ALFA, BETA jsou ve 
stupnich.) 

CIRCLE (X,Y,R: REAL) 

Nakresli kruznici se stredem v [ X,Y | a po¬ 
lomerem R. Pokud budou meFitka pro osu 
x a y rozdilna, bude vysledkem ve skuted- 
nosti elipsa. 

FILL (X,Y: REAL) 

Vyplni uzavreny obrazec barvou inkoustu. 
Bod [ X,Y | je uvnitr tohoto obrazce. 

PAINT (X,Y: REAL) 

Vyplni uzavreny obrazec vzorkem zada- 
nym podprogramem PATTERN. Bod | X,Y | 
lezi opbt uvnitr tohoto obrazce. 

Poznamka: Pri v6t§ich a slo2itej§ich 
obrazcich jsou podprogramy FILL a PAINT 


n£ro6n6j§i na volnou parrtef. Tyto pozadav- 
ky ovlivnite kladnb tfm, ie vnitrni bod zadate 
uprostfed vyplhovaneho obrazce. 

Parametry v§ech kreslicich podprogramu 
se zadbvaji v transformovanych soufadni- 
cich. Pokud bude bod le*et mimo zadane 
okbnko, vypi§e se zpr&va Out of window 
X= . .. Y= . . . XT = . . . YT= . .., kde XT 
a YT jsou hodnoty transformovanych sou- 
radnic, X a Y jsou hodnoty prepoditane do 
skutednych soufadnic. Po vyps^ni teto chy- 
bov6 zpr^ivy se program zastavi se zpravou 
Halt at PC- ... 

4) Funkce: 

POSIT (VAR,PX,PY: REAL) 

Ve skutednosti nejde o funkci, ale o proce¬ 
dure kter^ vraci pozici kurzoru v transformo¬ 
vanych souradnicich. 

POINT (X,Y: REAL): BOOLEAN 

Tato funkce vraci informaci o bodu: 
TRUE .... bod je vypln^n 
barvou inkoustu, 

FALSE ... bod neni vypln£n. 


Pouziti grafiky 

Tato verze systdmu grafiky je prizpusobe- 
na pro Hisoft Pascal. Zdrojovy text systemu 
s n&zvem grafR.P je dlouhy 7485 bajtu. 

\ Vytvoreny cilovy kod je dlouhy 8715 bajtu. 

Po nahrani Hisoft Pascalu musite zadat 
tabulku symbolu (Table size). Cely graficky 
system spotrebuje pro tabulku 2600 bajtu. 
Bohuzel v§t§ina verzi HP dovoluje pouzit pro 
tabulku symbolu max. 2200 bajtu. Potrebnou 
hodnotu 2600 i vice Ize zadat u verze HP 113 
(P. Ad&mek). 

Uvedene hodnoty naznacuji, ze v pam§ti 
nezbyv^ ji i mnoho mista (HP zabira pres 20 
kB). Zdrojovy text grafiky proto nelze kompi- 
lovat cely. Z programu muzete vymazat 6as- 
ti, kterd nebudete potrebovat a pak zkompi- 
lovat. 

Aby se pam6f nemusela zbyte6n§ zat§zo- 
vat uchovavanim zdrojoveho textu, je vyhod- 
n6 pouzit kompilaci z pasky. To umozhuje 
kompilovat cely graficky system. Proto jsem 
vytvoril ,,knihovni verzi". 

System grafika je zde rozdelen do 5 Casti: 

1 grafRO.W - velikost ciloveho kodu je 3506 
bajtu. 

Zakladni east, obsahujici podprogramy 
pFizpusobeni, organizacni podprogramy 
(GINIT, CLS, LTYPE, DTYPE, PATTERN, 
AT), kreslici podprogramy (CURSOR, 
PLOT, DRAW, LINE, LINETO); 

2. grafRI.W - 811 bajtu. 

Obsahuje organizacni podprogramy 
(WINDOW, CLW), transformacni podpro¬ 
gramy (SCALE, COORD, TURN, SYMMET, 
SHIFT); 

3. grafR2.W - 2031 bajtu. 

Obsahuje kreslici podprogramy (TRIA, 
TETRA, BOX, BOW, CIRCLE); 

4. grafR3.W - 2217 bajtu. 

Obsahuje kreslici podprogramy (FILLm 
PAINT); 

5. colour.W - 150 bajtu. 

Obsahuje podprogramy barev. 

Pozn&mka: oznafieni .W v n^zvu zname- 
n6, ze nejde o standardni format zdrojoveho 
textu, ale o knihovni verzi nahranou editoro- 
vym povelem W. 

\ 

Pri pouiiti GRAFIKY zkompilujte east 
grafRO. a k ni pak pridejte dal§i potrebnou 


east. Mezi deklaraci prontennych a deklaraci 
procedur a funkci ve svem programu vloite 
radky: 

j SF grafRO.W) 
f SF grafRx.W f, 

kde x je eislo dasti. 

Pokud nembte ve svem programu zadnou 
prom6nnou, dejte pred tento radek kliCove 
slovo VAR. 

Pri spusteni kompilace editorovym pove¬ 
lem C nebo T se u radku s direktivou F kom¬ 
pilace zastavi a je pripravena na vkladani 
z pasky. 


Verze Integer 

Pro jednodussi kresleni jsem vytvoril verzi 
INTEGER, ktera je kratsi a vytvari i mensi 
cilovy kod. Zdrojovy kod s nazvem grafl.P je 
dlouhy 5744 bajtu, velikost ciloveho kodu je 
5376 bajtu. Pro tabulku symbolu staei 2200 
bajtu. Vyhovuje tedy vsem verzim Hisoft 
Pascalu. 

Odli§nosti od verze REAL: 

I. Kreslit muzete na obrazovku o velikosti 
256x176 bodu. 

II. Vsechny uvedene podprogramy, ktere 
ntely parametry typu REAL, maji zde 
parametry typu INTEGER. 

III. Verze Integer neobsahuje tyto podpro¬ 
gramy: 

LTYPE - definice typu car, . 

SCALE - nastaveni meritek, 

TURN - natodeni souradneho systemu, 
BOW - kresleni oblouku. 

IV. Knihovna ma nasledujici casti: 

1. graflO.W - velikost ciloveho kodu je 1894 
bajtu. 

Zakladni east, obsahujici podprogramy 
prizpusobeni, organizacni podprogramy 
(GINIT, CLS, DTYPE, PATTERN AT), kresli¬ 
ci podprogramy (CURSOR, PLOT, DRAW, 
LINE, LINETO, CIRCLE); 

2. grafll .W - 584 bajtu. 

Obsahuje organizacni podprogramy 
(WINDOW, CLW), transformacni podpro¬ 
gramy (COORD, SYMMET, SHIFT); 

3. grafl2.W - 604 bajtu. 

Obsahuje kreslici podprogramy (TRIA, 
TETRA, BOX); 

4. grafl3.W - 2144 bajtu. 

Obsahuje kreslici podprogramy (FILL, PA¬ 
INT); 

5. colour.W - 150 bajtu. 

Obsahuje podprogramy barev (stejne jako 
u verze REAL). 

Vsechny programy, napsane pro verzi In¬ 
teger, budou pracovat stejne i s verzi Real. 

Ukazky programu 

1. Schody (Vypis 3.) 

Tento program ukazuje pouziti okenka, 
zmenu meritka; transformace souradnic 
a vyplhovani. 

2. Prubeh funkce (Vypis 4.) 

Nakresli se prubeh jedne periody funkce 
Y-SIN (X). Ukazuje vyhody zmeny meritka. 

3. Pneumatika (Vypis 5.) 

Program nakresli zjednodusene pneuma- 
tiku a vybarvi ji. Je pouzita verze INTEGER 
grafickeho systemu. 










Vypis 1. Graficky system, verze REAL 
(926-VI) 
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C GRAFICKY SYSTEM } 

C F'.KRIZ (c) 1988 > 

C verze REAL j 

C$L-} 

XMIN,YMIN,XMAX,YMAX,XOS,YDS,XSYM,YSYM, 

GF'AT , GROT, GDTYF'E , GLTYF'E ' : INTEGER ; 

XCG,YCQ,XSC,YSC, XSH,YSH,GALFA,GDETER, 

XTRi , XTR2, XTR3 , YTF:1, YTR2 , YTR3 : REAL ; 

{$0-,C-,S-, I - } 

PROCEDURE CURSOR0(X,Y:INTEGER); 

BEGIN 

INLINE(221,102,2,221,110,4,34,125,92) 

END; . 

PROCEDURE F'LOT0( X ,Y: INTEGER) ; 

BEGIN 

INLINE(253,33,58,92,221,70,2,221,78,4,237) 
INLINE(67,125,92,62,191,205,172,34,705,236 

END; .’ ' ’ ’ 

PROCEDURE DRAW0(DX,DY;INTEGER); 

BEGIN 

INLINE(253,33,58,92,17,1,1,221,70,2); 
INLINE(221,126,3,167,40,4,87,175,144,71) ; 
INLINE(221,78,4,221,126 5,167,40 4,9$); 
INLINE(175,145,79,121,184,48,6,105,213 175 
INLINE (95,24,8,177,40,51,104,65,21^ ,'22) ; 
INLINE(0,96,120,31,133,56,3,188 56, ^ ) ; 

INLINE(148,79,217,193,i97,24,4,^9,$13 217) 
I NL I NE (193,42,125,92,121,133,79,1^0,1.^2,71 
INLINE(237,67,125,92,62,191,205,172,34,205 
INLINE(236,34,217,121,16,214,209) 

END; . ’ 

FUNCTION POINT0(X,Y;INTEGER):BOOLEAN; 

BEGIN 

INLINE(221,70,2,221,78,4,62,191,205,172,34 
INLINE(71,4,126,7,16,253,230,1,221,119,6) 
END; 

PROCEDURE POSIT0 (VAR PX , F'Y ; I NTEGER ) ; 

BEGIN 

INLINE(237,91,125,92,175,221,110,4); 

INLINE(221,102,5,115,35,119,221,i10!2); 
INLINE(221,102,3,114,35,119) 

END; 

PROCEDURE OVER(0:1NTEGER); 

BEGIN 

INLINE(62,2,221,86,2,205,29,34) 

END; ’ ’ 

PROCEDURE INVERSE(I:INTEGER); 

BEGIN ’ 

INLINE(62,1,221,86,2,205,29,34) 

END; . 

PROCEDURE AT(LIN,COL:INTEGER); 

BEGIN 

INLINE(221,70,2,221,78,4,205,10,32) 

END; . 

PROCEDURE TRANS(X,Y:REAL;VAR PX,PY;INTEGER) 
BEGIN 

PX:=R0UND(XTR1+XTR2*X+XTR3*Y); 

PY:=ROUND(YTR1+YTR2# X+YTR3* Y); 

IF (P X < X MIN) OR (P X > X MA X) OR (PY<YMIN) OR 
BEG IN 

WRITE(CHR(13),'Out of window; X=',PX,' Y 
,Y);HALT 
' END 
END; 
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) ; 


) ; 
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TRANS(XR+DX,YR+DY,X,Y); 

PDX:=XTR2*DX+XTR3*DY; 

PDY;=YTR2*DX+YTR3*DY; 

IF GLTYPE=1 THEN DRAW0 (ROUND ( F'DX ), ROUND (PDY) ) 
ELSE BEGIN 

IF GLTYPE=2 THEN BEGIN A:=2;B:=4 END 
ELSE BEGIN A:=4;B:=0 END; 

L;=SQRT(SQR(PDX)+SQR(PDY)); 

N:=TRUNC((L+B)/(A+B)); 

POSIT0(X,Y); 

FOR I:=0 TO'N-1 DO BEGIN 
F'LOT0(X+ROUND(F'DX*I/N) , Y+ROUND ( F'DY* I /N ) ) ; 

IF GLTYPE=2 THEN 

DRAW0( ROUND (F'DX*A/L) , ROUND (PDY* A/L ) ) 

END; 

PLOT0(X+ROUND(PDX),Y+ROUND(PDY)) 

END 

138 END; 

139 PROCEDURE LINETO(X2,Y2:REAL); 

140 VAR XI,Yl:REAL: 

141 BEGIN 

142 F'OS IT(X1,Y1) ; DRAW ( X2-X1 , Y2-Y1 ) 

143 END; 

144 PROCEDURE LINE(X1,Yl,X2,Y2;REAL); 

145 BEGIN ... 

146 PLOT ( XI, Yl) ; DRAW ( X2-X1, Y2-Y1)' 

147 END; 

148 PROCEDURE CLS; 

149 BEGIN 

PAGE;AT(0,0);CURSOR(0,0); 

INLINE(205,173,28,58,141,92,33 0,88)■ 

INLINE(17,1,88,1,255,2,119,237,176) 

153 END; ’ ’ ' 

154 PROCEDURE GIN IT; 

155 BEGIN 

XSC:=1;YSC:=1;XCO:=0;YCO:=0;GALFA:=0; 

XSH:=0;YSH:=0;XSYM:=1;YSYM:=1;XOS:=0;YDS;=0; 
XMIN:=0;YMIN:=0;XMAX:=255;YMAX:=191•' 

TRCONST; ' 

CURSOR(0,0); 

DTYPE (1) ; LTYF’E ( 1 ) ; 

PATTERN(i,l) 

_END; 

164 PROCEDURE WINDOW(XI,Yl,X2,Y2,X0,Y0:INTEGER ) ■ 

165 BEGIN . . . , LU ‘- n 5 

166 XMIN:=X1;YMIN:=Y1;XMAX:=X2;YMAX:=Y2;XOS:=XMIN 

*-X0 ; YOS: =YMI N+Y0; 5 

167 TRCONST 

168 END; 

169 PROCEDURE COORD(X0,Y0;REAL); 

170 BEGIN ’ 

171 XCO:=X0;YCO:=Y0;TRCONST 

172 END; 

173 PROCEDURE SCALE(SX,SY:REAL); 

174 BEGIN 

175 XSC:=SX;YSC:=SY;TRCONST 

176 END; 

177 PROCEDURE SHIFT(SX,SY:REAL); 

178 BEGIN ’ 

179 XSH:=SX;YSH:=SY;TRCONST 

180 END; 

181 PROCEDURE SYMMET(SX,SY:INTEGER); 

1B3 IF SX=0 THEN XSYM:=1 ELSE XSYM:=~1; 

184 IF SY=0 THEN YSYM:=1 ELSE YSYM:=-1; 
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(PYTYMAX) THEN 
= ’ ,PY, XT=' , X , 


66 PROCEDURE POSIT(VAR F'X , F'Y : REAL) ; 

67 VAR X,Y:INTEGER; 

68 BEGIN 

69 POSIT0(X,Y); 

70 PX;=((X-XTRi)*YTR3-(Y-YTR1)*XTR3)/GDETER: 

71 F'Y : = ( ( Y-YTR1) *XTR2-( X-XTRI ) *YTR2 ) /GDETER 

72 END; 

73 PROCEDURE TRCONST; 

74 BEGIN 

75 XTR2:=YSYM*XSC*C0S(GALFA) ; 

76 YTR2:=YSYM*XSC*SIN(GALFA); 

77 XTR3:=-XSYM*YSC*SIN(GALFA); 

78 YTR3:=XSYM*YSC*C0S(GALFA); 

79 XTRI:=X0S+XSC*XC0+XTR2*XSH+XTR3*YSH; 

80 YTR1:=Y0S+YSC*YC0+YTR2*XSH+YTR3*YSH; 

81 GDETER:=XTR2*YTR3-XTR3*YTR2 

82 END; 

83 PROCEDURE LTYF'E ( LT : I NTEGER ) ; 

84 BEGIN 


85 GLTYF'E: =LT 

86 END; 

87 PROCEDURE DTYF'E ( DT ; I NTEGER ) ; 

88 BEGIN 

89 GDTYF'E :=DT; 

90 OVER(0);INVERSE(0 ) ; 

91 IF DT=0 THEN INVERSE(1 ) ; 

92 IF DT=2 THEN OVER(1) 

93 END; 

94 PROCEDURE PATTERN(PAT,RP:INTEGER); 

95 BEGIN 

96 GF'AT :=F'AT; GROT: =Rp 

97 END; 

98 FUNCTION F'O I NT ( X , Y : REAL ); BOOLEAN; 

99 VAR F'X , F'Y: INTEGER; 

100 BEGIN ' 

101 TRANS ( X , Y , F'X , F'Y ) ; 

102 F’O I NT : =F'Q INT0 ( F'X , F'Y ) 

103 END; 

104 PROCEDURE CURSOR(X,Y:REAL); 

105 VAR F'X ,F'Y: INTEGER; ' 

106 BEGIN ' 

107 TRANS ( X , Y , F'X , F'Y) ; 

108 CURSOR0 ( F'X , F'Y ) 

109 END; 

110 PROCEDURE PLOT(X,Y:REAL ) ; 

111 VAR F'X,PY: INTEGER; 

112 BEGIN ' 

113 TRANS (X,Y,F'X, F'Y) ; 

114 F'LOT0 ( F'X , PY ) 

115 END; 

116 PROCEDURE DRAW(DX,DY:REAL); 

117 VAR A,B,N,X,Y,I:INTEGER; 

118 XR,YR,PDX,PDY,L:REAL; 

119 BEGIN ' 

120 POSIT(XR,YR); 


185 TRCONST 

186 END; 

187 PROCEDURE TURN(ALFA:REAL); 

188 BEGIN 

189 GALFA:=ALFA*3.1416/180;TRCONST 

190 END; 

191 PROCEDURE CLW(FRAME:BOOLEAN); 

192 VAR Y,T:INTEGER; 

193 BEGIN 

194 T : =GDTYF'E ; DTYPE ( 0 ) ; 

195 FOR Y:=YMtN TQ YMAX DO BEGIN 

196 PLOT0 ( XMIN , Y ) ; DRAW0 ( XMAX-XMIN , 0 ) 

197 END; 

198 DTYPE(T); 

199 IF FRAME THEN BEGIN 

200 CURSOR0(XMIN,YMIN); 

201 DRAW0(0,YMAX-YMIN);DRAW0(XMAX-XMIN,0); 

202 DRAW0(0,YMIN-YMAX);DRAW0(XMIN-XMAX,0) 

203 END; 

204 CURSOR(0,0) 

205 END; 

206 PROCEDURE TRIA(XI,Yl,X2,Y2,X3,Y3:REAL); 

207 BEGIN . ' 

208 CURSOR(XI,Yl); 

209 DRAW(X2-X1,Y2-Y1); 

210 DRAW(X3-X2,Y3-Y2); 

211 DRAW(X1—X3,Y1-Y3) 

212 END; 

213 PROCEDURE TETRA(X1,Yl,X2,Y2,X3,Y3,X4,Y4:REAL ) ; 

215 CURSOR(X1,Y1); 

216 DRAW(X2-Xi,Y2-Y1); 

217 DRAW(X3-X2,Y3—Y2); 

218 DRAW(X4-X3,Y4-Y3); 

219 DRAW(XI—X4.Y1-Y4) 

220 END; 

221 PROCEDURE BOX(X1,Yl,X2,Y2:REAL); 

222 BEGIN . 

223 CURSOR(XI.Yl): 

224 DRAW(0,Y2-Y1 ) ; 

225 DRAW(X2~X1,0); 

226 DRAW(0,Yl—Y2); 

227 DRAW(Xi—X2,0) 

228 END; 

229 PROCEDURE BOW(X,Y,R,ALFA,BETA:REAL); 

230 VAR U.V,RX,RY,RM:REAL; 

231 BEGIN' 

232 ALFA:=ALFA*3.1416/180; 

233 BETA:=BETA*3.1416/180; 

234 CURSOR ( X+RKCOS (ALFA ) , Y+FOCSIN ( ALFA ) ) ; 

235 RX:=ABS(R*XSC);RY:=ABS(R*YSC) ; 

236 IF RX;RY THEN RM:=RX ELSE RM:=RY; 

237 U;=3.1416/36; 

238 IF RM<10 THEN U:=2*U; 

239 IF RM<25 THEN U:=3*U; 


240 V:=U; 

241 WHILE V<=BETA DO BEGIN 

242 LINETO( X+R*COS (ALFA+V.) ,Y+R*SIN(ALFA+V) ) ; 

243 V:=V+U 

244 END; 

245 LINETO(X+R*COS(ALFA+BETA),Y+R*SIN(ALFA+BETA 

246 END; 

247 PROCEDURE CIRCLE(X,Y,R:REAL); 

248 BEGIN 

249 BOW(X,Y,R,0,360) 

250 END; 

251 PROCEDURE RANGE(VAR XI,X2;INTEGER; Y:INTEGER 

252 BEGIN 

253 IF X1>XMIN THEN 

254 REPEAT X1:=X1-1 

255 UNTIL (X1=XMIN) OR POINT©(XI,Y); 

256 IF X2CXMAX THEN 

257 REPEAT X2:=X2+1 

258 UNTIL ( X2=XMAX ) OR F'OINT0(X2,Y) 

259 END; 

260 C*S+} 

261 PROCEDURE FILL0(VAR X;INTEGER; Y:INTEGER); 

262 VAR XI,X2:INTEGER; 

263 BEGIN ' ' 1 

264 X2:=X; 

265 RANGE(X,X2,Y); 

266 CURSOR0( X , Y ) ; 

^67 X"=X+1’ 

268 DRAW0(j<2-X,0) ; 

269 XI;=X; 

270 IF Y<YMAX THEN 

271 WHILE X<X2 DO BEGIN 

272 IF NOT POINT0(X, Y+l) THEN FILL0(X,Y+l); 

273 X;=X+1 

274 END; 

275 X:=Xi; 

276 IF YJ'/MIN THEN 

277 WHILE X<X2 DO BEGIN 

278 IF NOT POINT©(X,Y—1) THEN FILL©(X,Y-l); 

279 X:=X+1 

280 END; 

281 X:=X2; 

282 END; 

283 -CSS-} 

284 PROCEDURE FILL(X,Y:REAL); 

285 VAR PX,PY,X1,T:INTEGER; 

286 BEGIN 

287 TRANS ( X, Y, F'X. F'Y ) ; 

288 IF NOT POINT©(F'X ,PY) THEN BEGIN 

289 T:=GDTYPE;DTYPE(1); 

290 X1:=P X; 

291 FILL©(PX,PY); 

292 DTYPE(T) 

293 END; 

294 CURSOR©(XI,PY) 

295 END; 

296 [<fS+} 

297 PROCEDURE PAINT0(X,Y,PAT:INTEGER); 

298 VAR X1,X2,PAT1:INTEGER; 

299 FUNCTION ROT(PAT,N:INTEGER);INTEGER; 

300 VAR I:INTEGER; 

301 BEGIN 

.302 FOR I:=—1 DOWNTO N DO BEGIN 

303 PAT:=PAT*2; 

304 IF PAT>=255 THEN PAT:=PAT-255 

305 END; 

306 FOR I:=1 TO N DO BEGIN 

307 IF PAT MOD 2=1 THEN PAT ; =F'AT+256; 

308 PAT;-PAT DIV 2 

309 END; 

310 ROT:=PAT 

311 END; 

312 BEGIN 

317 X1 ,= X - X2:=X - 

314 RANGE (XI!X2 ? ,Y) ; 60 

315 XI:=X1+1;X2:=X2-1; 61 

316 PAT:=ROT(PAT,(X—Xi) MOD 8); END 

317 PAT1:=PAT; 

318 FOR X:=X1 TO X2 DO BEGIN 

71 Q PAT-=PAT*7- 

320 IF PAT>255"THEN BEGIN 

321 PAT ;=F'AT-255; 

322 PLQT0(X,Y) 

END 

END; 

IF Y<YMAX THEN BEGIN 
PAT:=ROT(PAT1,XSYM*YSYM*GRQT); 

FOR X:=X1 TO X2 DO BEGIN 
IF ( PAT> 127 ) AND NOT F'O INT0 ( X , Y+l) THEN 


) ); 


366 PROCEDURE FLASH (F:INTEGER); 

367 BEGIN 

368 . INLINE(175,60,221,86,2,205,29,34) 

369 END; 

370 PROCEDURE BORDER(B:INTEGER); 

371 BEGIN 

372 INLINE(221,126,2,205,151,34) 

373 END; 

374 f $L +,0+,C+,S+,I~] 


Vypis 2. Graficky system, verze INTEGER 
(926-V2) 


GRAFICKY SYSTEM 
P.KRIZ (c) 1988 
verze INTEGER 


IF 


6 [$L-> 

7 XCO,YCO,XSYM,YSYM,XMIN,YMIN,XMAX,YMAX , 

8 XOS , YOS, XSH , YSH ,6PAT , GROT , GDTYF'E : INTEGER; 

9 T$0-,C-,S-,I-} 

10 PROCEDURE CURSOR0(X,Y:INTEGER) ; 

11 BEGIN 

12 INLINE(221,102,2,221,110,4,34,125,92) 

13 END; 

14 PROCEDURE PLOT0(X,Y:INTEGER); 

15 BEGIN 

16 INLINE(253,33,58,92,221,70,2,221,78,4,205,229,34) 

17 END; 

18 PROCEDURE DRAW0(DX,DY:INTEGER); 

19 BEGIN 

20 INLINE(253,33,58,92,17,1,1,221,70,2); 

21 INLINE(221,126,3,167,40,4,87,175); 

22 INLINE(144,71,221,78,4,221,126,5,167); 

23 INLINE(40,4,95,175,145,79,205,136,36) 

24 END; 

25 PROCEDURE CIRCLE0(X,Y,R:INTEGER); 

26 BEGIN 

27 INLINE(221,126,6,205,40,45); 

28 INLINE(221,126,4,205,40,45); 

29 INLINE(221,126,2,205,40,45); 

30 INLINE(205,45,35) 

31 END; 

32 FUNCTION F'O INT0 ( X , Y : INTEGER ): BOOLEAN ; 

33 BEGIN 

34 INLINE(221,70,2,221,78,4); 

35 INLINE(205,170,34,71,4,126,7); 

36 INLINE(16,253,230,1,221,119,6) 

37 END; 

38 PROCEDURE POSIT0(VAR F'X ,F'Y : INTEGER ) ; 

39 BEGIN 

40 INLINE(237,91,125,92,175,221,110,4); 

41 INLINE(221,102,5,115,35,119,221,110,2); 

42 INLINE(221,102,3,114,35,119) 

43 END; 

44 PROCEDURE OVER(0:INTEGER); 

45 BEGIN 

46 INLINE(62,2,221,86,2,205,29,34) 

47 END; 

48 PROCEDURE INVERSE(I;INTEGER ) ; 

49 BEGIN 

50 INLINE(62,1,221,86,2,205,29,34) 

51 END; 

52 PROCEDURE AT(LIN,COL:INTEGER); 

53 BEGIN 

54 INLINE(221,70,2,221,78,4,205,10,32 ) 

55 END; 

56 PROCEDURE TRANS(VAR PX,PY:INTEGER); 

57 BEGIN 

58 PX:=(PX+XSH)*YSYM+XCO+XOS; 

59 PY : = ( F'Y+YSH ) * XSYM+YCO+YOS ; 

(F'X <XM IN ) OR (F’X > XMAX ) UK (PYKYMIN) OR (PV> YMAX ) THEN 


324 

325 

326 

327 

328 

T)£ 

3a0 
331 
, 332 

334 

335 

336 
T) ; 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 
• 352 

353 
. 354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 


BEGIN WRITE(CHR(13) ,'Out of window: X=' , PX , 'Y=' ,PY) ;HALT 

62 END; 

63 FUNCTION POINT(X,Y:INTEGER):BOOLEAN; 

64 BEGIN 

65 TRANS(X,Y);POINT;=P0INTO(X,Y) 

66 END; 

67 PROCEDURE POSIT(VAR PX,PY:INTEGER); 

68 BEGIN 

69 POSIT0 ( F’X , PY) ; 


PAINTO(X,Y+l,PA 


PAT; =p , aT#' ? ■ 

IF PAT>255’tHEN PAT :=F'AT—255 
END 
END; 

IF Y>YMIN THEN BEGIN 
F'AT:=R0T(PAT1,-XSYM* YSYM*GROT ) ; 

FOR X:=X1 TO X2 DO BEGIN 

IF ( PAT> 127 ) AND NOT POINT0 ( X , Y-l) THEN F'AINTO ( X , Y-l, F'A 


PAT • =PAT#2 • 

IF PAT>255 5 THEN F'AT:=PAT-255 
END 
END 
END; 

C*S-} 

PROCEDURE PAINT(X,Y:REAL); 

VAR PX,PY,T:INTEGER; 

BEGIN 

TRANS(X,Y,PX*PY); 

IF NOT POINT0(PX,PY) THEN BEGIN 
T:=GDTYPE;DTYPE(1) ; 

PAINT0 ( PX , PY, GF'AT ) ; 

DTYPE(T) 

END; 

CURSOR0 (F'X , PY ) 

END; 

PROCEDURE INK(I:INTEGER); 

BEGIN 

INLINE455,221,86,2,205,52,34) 
END; 

PROCEDURE PAPER (F': I NTEGER ) ; 

BEGIN 

INLINE(167,221,86,2,205,52,34) 
END ; 

PROCEDURE BRIGHT(B:INTEGER); 
BEGIN 

INLINE(151,221,86,2,205,116,34) 
END; 


70 PX:=(PX-XCO-XOS)*YSYM-XSH; 

71 PY:=(PY-YCO-YQS)*XSYM-YSH 

72 END; 

73 PROCEDURE CURSOR(X,Y:INTEGER); 

74 BEGIN 

75 TRANS(X,Y);CURSOR©(X,Y) 

76 END; 

77 PROCEDURE PLOT(X,Y:INTEGER); 

78 BEGIN 

79 TRANS(X,Y);PLOT 0(X,Y) 

80 END; 

81 PROCEDURE DRAW(DX,DY;INTEGER); 

82 VAR X,Y:INTEGER; 

83 BEGIN' 

84 POSIT(X,Y);X:=X+DX;Y:=Y+DY; 

85 TRANS(X,Y); 

86 DRAW0(DX*YSYM,DY*XSYM) 

87 END; 

88 PROCEDURE LINETO(X2,Y2:INTEGER); 

89 VAR XI,Y1;INTEGER; 

90 BEGIN 

91 F'OSIT ( X1, Y1) ; DRAW ( X2-X1, Y2—Y1 ) 

92 END; 

93 PROCEDURE LINE(XI,Y1,X2,Y2:INTEGER) 

94 BEGIN 

95 PLOT(X1,Y1);DRAW(X2—XI,Y2-Y1 ) 

96 END; 

97 PROCEDURE CIRCLE(X,Y,R:INTEGER); 
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BEGIN 

TRANS(X,Y); CIRCLE0( X , Y , R ) 

END; ’ 5 

PROCEDURE DTYPE(T:INTEGER); 

BEGIN 
GDTYPE:=T; 

OVER(0);INVERSE(0); 

IF T=0 THEN INVERSE(1); 

IF T=2 THEN OVER(l) 

END; 

PROCEDURE PATTERN(PAT,RP:INTEGER); 

BEGIN ’ 

GPAT:=PAT;GROT:=RP 
END; 

PROCEDURE CLS; 

BEGIN 

PAGE;AT(0,0);CURSOR(0,0); 

INLINE(205,173,28,58,141i92,33,0,88); 

. ^INLINE(17,i,88,1,255,2,li9,237,176) 

PROCEDURE GINIT; 

BEGIN 

XMIN:=0;YMIN:=0;XMAX:=255;YMAX:=175; 
XSYmT^yIym^JL^ 0 ! =0 ? YC ° : =0 5 XSH = =B ? VSH: =0; 
CURSOR(6,0);' ’ 

DTYPE(1); 

PATTERN(1,1) 

END; 

£0R9f. DIJRE WINDOW ( XI ,Y1, X2, Y2, X0,Y0: INTEGER) ; 

otblN; 

XMIN;=X1;YMIN:=Y1;XMAX:=X2;YMAX:=Y2;XOS:=X1+X0; 
=Y1+Y0 

END; 

PROCEDURE COORD(X0,Y0:INTEGER); 

BEGIN 

XCO:=X0;YCO:=Y0 
END; 

PROCEDURE SYMMET(SX,SY:INTEGER); 

BEGIN 

JJl § v x=0 th EN XSYM; =1 ELSE XSYM:=-1; 

IP SY=0 THEN VSYM;=1 ELSE YSYM:=-1 
END; 

EPS95 DURE SHIFT(SX,SY;INTEGER); 

BEGIN 

XSH:=SX;YSH:=SY 
END; 

PROCEDURE CLW( FRAME: BOOLEAN)-: 

VAR Y,T:INTEGER; 

BEGIN 

T:=GDTYPE;DTYPE(0); 

FOR Y:=YMlN TO YMAX DO BEGINi 

PLOT0(XMIN,Y);DRAW0(XMAX-XMIN 0) 

END; ’ 

DTYF'E(T) ; 

IF FRAME THEN BEGIN 
CURSOR0(XMIN,YMIN); 

DRAW0(0,YMAX-YMIN);DRAW0(XMAX-XMIN,0): 
^DRAW0(0,YMIN-YMAX)•DRAW0(XMIN-XMAX,0) ' 

CURSOR(0,0) 

END; 

PROCEDURE TRIA(X1,' 

BEGIN 

CURSOR(XI,Yl); 

DRAW(X2-X1,Y2-Y1) 

DRAW ( X3-X2 , Y3--Y2 ) 

DRAW(X1-X3,Y1-Y3) 

END; 

PROCEDURE TETRA(X1,Yl,X2,Y2,X3,Y3,X4,Y4:INTEGER 
BEGIN 

CURSOR(XI,Yl); 

DRAW(X2-X1,Y2-Y1); 

DRAW(X3—X2,Y3-Y2); 

DRAW(X4-X3,Y4-Y3); 

DRAW(X1-X4,Y1—Y4) 

END; 

PROCEDURE BOX(X1,Y1,X2,Y2:INTEGER); 

BEGIN 

CURSOR(X1,Y1); 

DRAW(0,Y2-Y1); 

DRAW(X2-X1,0); 

DRAW(0,Yl—Y2); 

DRAW(X1-X2,0) 

END; 

PROCEDURE RANGE(VAR X1,X2:INTEGER; Y:INTEGER); 

IF X1>XMIN THEN 
REPEAT X1: =X1-1 

UNTIL (X1=XMIN) OR POINT0(X1, Y ) ; 

IF X2CXMAX THEN 
REPEAT X2:= X2+1 

UNTIL (X2=XMAX) OR POINT0(X2,Y) 

END; 

OS+} 

PROCEDURE FILL0(VAR X:INTEGER;Y:INTEGER); 

VAR XI,X2:INTEGER: 

BEGIN 
X2:=X• 

RANGE(X,X2,Y); 

CURSOR0(X,Y);' 

X:=X+1■ 

DRAW0(X2-X,0); 

X1: =X■ 

IF*Y<YMAX THEN 

WHILE X<X2 DO BEGIN , 

IF_NOT F'0INTO ( X , Y+l) THEN FILL0 ( X , Y+l) ; 

end7 

X;=Xi" 

IF Y>YMIN THEN 
WHILE X<X2 DO BEGIN 

IF_NOT F'OINT0 ( X , Y —1 ) THEN FILL0 ( X , Y-l) ; 

X:— X + l 
END; 

X:=X2; 

END; 

OS-} 

PROCEDURE FILL(X,Y:INTEGER); 

VAR T,XI:INTEGER; 

BEGIN 

TRANS(X,Y); 

IF NOT POINT0(X,Y) THEN BEGIN 
T : =GDTYF'E ; DTYF'E ( 1 ) ; 

Xl“=sX" 

FILL0(XI,Y); 

DTYPE(T) 


,'i, X2,Y2, x; 


224 

225 

226 

227 

228 



236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 


£ND; 

CURSOR0(X,Y) 

END; 

OS+} 

PROCEDURE PA INT0(X,Y,PAT:INTEGER); 

VAR XI,X2,PAT1:INTEGER; 1 
FUNCTION ROT(PAT,N:INTEGER):INTEGER; 
VAR I:INTEGER; 

BEGIN 

FOR I:=-i DOWNTO N DO BEGIN 
PAT ; =F'AT*2 * 

IF F'AT>255" THEN pAT:=F'AT-255 
END; 

FOR I:=i TO N DO BEGIN, 

IF PAT MOD 2=1 THEN PAT:=PAT+256; 
PAT:=PAT DIV 2 
END; 

ROT:=PAT 
END; 

BEGIN 

X t ■=X•X3. = V . 

RANGE ( XI', X2 ? ,Y) ; 
xi -=xi+i ■ x?- = y?-i • 

PAT :=ROT (PAT , ( X—xi ) MOD 8); 

PAT1:=PAT; 

FOR X:=X1 TO X2 DO BEGIN 
PAT•=PAT*7• 

IF PAT>255’THEN BEGIN 
F'AT :=F‘AT—255; 

F'LOT0 ( X , Y ) 

END 


255 END; 

256 IF Y<YMAX THEN BEGIN 

257 PAT: =ROT ( PAT 1, XSYM*YSYM*GRO'F) ; 

258 FOR X:=X1 TO X2 DO BEGIN 

259 IF (PAT>127) AND NOT POINT0(X,Y+l) 
PAINT0(X,Y+l,PA T ) ; 


THEN 


260 PAT:=PAT*2; 

261 IF PAT>255 THEN PAT:=PAT-255 

262 END 

263 END; 

264 IF Y>YMIN THEN BEGIN 

265 . PAT:=ROT(PAT1,-XSYM*YSYM*GROT); 

266 FOR X:=X1 TO X2 DO BEGIN 

267 IF (PAT>127) AND NOT POINT0(X,Y-l) THEN 
PAINT0(X,Y-l,PA T); 


268 PAT:=PAT*2; 

269 IF PAT>255 THEN PAT:=F'AT-255 

270 END 

271 END 

272 END; 

273 OS-} 

274 PROCEDURE PAINT(X,Y:INTEGER); 

275 VAR T:INTEGER; 

276 BEGIN 

277 TRANS(X,Y); 

278 IF NOT POINT0(X,Y) THEN BEGIN 

279 T : =GDTYPE; DTYF'E ( 1) ; 

280 F'AINT0 ( X , Y , GPAT ) ; 

281 DTYPE(T) 

282 END; 

283 CURSOR0(X,Y); 

284 END; 

285 PROCEDURE INK(I:INTEGER); 

286 BEGIN 

287 INLINE(55,221,86,2,205,52,34) 

288 END; 

289 PROCEDURE PAPER(P:INTEGER); 

290 BEGIN 

291 INLINE(167,221,86,2,205,52,34) 

292 END; , ' ' 

293 PROCEDURE BRIGHT(B:INTEGER); 

294 BEGIN 

295 INLINE(151,221,86,2,205,116,34) 

296 END; 

297 PROCEDURE FLASH(F:INTEGER); 

298 BEGIN 

299 INLINE(175,60,221,86,2,205,29,34) 

300 END; ’ 

301 PROCEDURE BORDER(B:INTEGER); 

302 BEGIN 

303 INLINE(221,126,2,205,151,34) 

304 END; . 

305 ($L+,0+,C+,S+,I-} 


Vypis 4. Program Prubeh funkce (926-V4) 

PROGRAM PrubehFankceSinus; 

CONST 

PI=3.14159; 

VAR 

S,X,U:REAL; 

OF graf R0. W} 

OF grafRl.W} 

BEGIN 

GINIT; 

CLS; 

WINDOW(0,0,255,191,16,96) ; 

AT (2,20); { pro 64 znakili na PAdek } 

WRITELN('PRUBEH FUNKCE Y=SIN(X)'); 
S:=90/F'I ; 

SCALE(S,S); 

LTYPE(3 j; 

LINE(0,<-1,0,1) ; 

LINE(0,0,2*PI ,0.) ; 

LTYPE(1); 

PLOT(0,0); 

U:=3/S; 

X: =0; 

WHILE X<=2*PI DO BEGIN 
LINETO(X,SIN(X)); 

X:=X+U 
END 
END. 



Vypis 3. Program Schody (926-V3) 



Jozef Kutej a Peter Kottas, CHTF SV8t, Radlinskeho 9, 812 37 Bratislava 

V mikropoci'tacoch ceskoslovenskej vyroby sa stretavame takmer 
vylucne s paralelnym prepojemm mikropoci'tac-tlaciaren. Vyhoda, kto- 
ru toto prepojenie ma - zvysena rychlostf prenosu dat, sa u mikropocf- 
tacov neprejavi. U nas bezne pouzivane stolne tlaciame D100, PRT 80, 
K 6313, K 6314 maju rychlostf tlace do 120 znakov/s. Tymito limituju 
maximalnu rychlostf prenosu dat na uroven do 2000 bitov/s. 


PROGRAM SCHODY; 

VAR 

•C$F grafR0.W} 

C*F grafRl.W} 

•C*F grafR2 . W} 

C$F grafR3.W} 

[$F colour.W} 

C*L-} 

PROCEDURE SCHODY(N:INTEGER); 

VAR I:INTEGER; 

PROCEDURE SCHOD; 

BEGIN 

TETRA(0,20,0,10,50,0,50,10); 
DRAW(20,4); 

DRAW(50,-10); 

DRAW(-20,-4); 

FILL(25,10); 

PATNT(35,17) 

END; 

BEGIN 

FOR I:=0 TO N-l DO BEGIN 
SHIFT(20#I,14*1); 

SCHOD 

END; 

SHIFT(0,0); 

IF N>1 THEN BEGIN 
PLOT(50,0); 

If%AW(40,Q) ; 

DRAW(20*(N-2),14*(N-2)); 
DRAW(0,20) 

END 

END; 

{$L+} 

BEGIN 

GINIT; 

PAPER(4); 

BORDER(4); 

CLS; 

SCALE(1.3,1.5); 

SCHODY(6); 

. WIND0W(24,80,127,159,10,10); 

' PAPER(5); 

CLW(TRUE); 

— SCALE(0.4,0.4); 

PATTERN(17,-1); 

SCHODY(8); 

WINDOW (96,2 ( 4,231,111,125,10) ; 
PAPER(7) ; 

CLW(TRUEj ; 

SYMMET(0,1); 

SCALE(0.6,0.6); 

PATTERN(85,1) ; 

SCHODY(7) 

END. 


Paralelne prepojenia (system PMD 85, 
Centronix, IRPR) vyzaduju na prepojenie 
minimalne jeden^sf az dvanasf vodifiov, 
obvod paralelneho styku (aspon 1/2 8255), 
budide zbernice (8286,8287 ...) a pripadne 
cTal§ie hradl^ na spracovanie riadiacich sig- 
ndlov. Zapojenie je obvodovo n&rocne, pou- 
zite konektory, zvyfiajne FRB, su drahe a ne- 
dostatkove. 

V na§ich mikropofiitafioch sme odsku§ali 
zapojenie s6riov6ho interfejsu na prepojenie 
mikropo6ita6-tla6iarefi. S vyhodou sa da 
pouirt v systemoch s mikroprocesorom 
MHB 8080A s tromi napajacimi hladinami 
+ 12 V, +5 V a-5 V. 

Interfejs na prepojenie mikropocitafia 
s tlaCiarrtou vy^aduje tri tranzistory, tri diody 
a osem odporov. Na prepojenie su potrebne 
tri vodide. Tlaeiarne K6313-14, D100, 
PRT80, mozu byf vybaven6 odpovedajucim 
interfejsom RS 232 (V24), vyrobcovia ich 
ponukaju. 

Na obr. 1 je priklad zapojenia obvodu 
styku mikropofiitafia PMD85 s tladiarrtou 
a kl^ivesnicou. Tlafciarefi a kl^vesnica maju 
seriove vstupy-vystupy, tlaciaren podra nor- 
my RS232 (V24). Interfejs moze byf ovlada- 
ny cez SIO 8251 (obr. 1), SIO U856, cez dva 
vyvody PIO 8255, U855 . . . 


Vyhody zapojenia su nasledovne: 

- redukcia poctu prepojovacich vodicov 
z jedenasf na tri pri dlzke prepojovacieho 
kablu do 16 m, 

- zjednodusenie zapojenia obvodu styku, 
uspora polovodiSov, 

- na prepojenie nie je potrebne pouzivaf 
drahe a pri iastejsom rozoberani nespo- 
fahlive konektory FRB. Je mozne pouzif 
normalizovane 25-kolikove konektory. No 
nam sa osvedcili aj lacne 5-kolikove nf- 
-konektory s mechanickym spojenim na 
zavit, 

- podstatne znizenie pracnosti pri vvrobe 
prepojovacich kablov. 

Tento interfejs je vyhodne pouzif v mikro- 
pocitacovych systemoch s napajacimi hladi¬ 
nami +12 V, +5 V a -5 V predovsetkym na 
prepojenie s tlaciariiou. Tu je ekonomicky aj 
technicky nevhodne realizovaf interfejs po- 
mocou 10 75150 a 75154, ktore vyzaduju na 
spravnu funkciu d’al§iu napajaciu hladinu 
-12 V. 

Zapojenie sme odskusali pri prepojeni 
mikropoditafia PMD85 s tlaciarhami K6311 
(NDR) a D100 (PLR). Na 16 m sme prenasali 
data rychlosfou 9600 bitov/s. 


Vypis 5. Program Pneumatika (926-V5) 


PROGRAM PNEUMATIKA; 

CONST 

POSUN=15; 

Ri=30; 

R2=65; 

VAR 

I:INTEGER; 

{4F graf10.W> 

{$F grafI1.W> 

■C$F graf 13.W} 

BEGIN 

GINIT; 

CLS; 

COORD(128,88); 

FOR I:=0 TO 1 DO BEGIN 
SHIFT(I*PQSUN,I*POSUN); 
CIRCLE(0,0,R1); 

CIRCLE(0,0,R2); 

IF 1=0 THEN 
FILL(Rl+1,0) 

END 

END. 


+5K *12 V 




Obr. 1. Schema zapojenia vstupov-vystupov pre tlaciaren a klavesnicu. Obvody INT 
a RESIN umozhuju pracu prerusovacieho systemu a externy studeny start z externej 

klavesnice. (908-1) 






Vladimir Julius, 0K1IVJ, sokoiovska 123,323 16 pizen 

V minulem roce se v nasi maloobchodni siti objevily souradnicove zapisovace 1 PI 6 k pocitaci SHARP MZ- 
-800. Elektronika zapisovace obsahuje jednocipovy mikroprocesor 8050 se 4kB pameti PROM a vystupni 
zesilovace pro ovladani krokovych motoru a pera. Tyto zapisovace pouzivaji specialni papir v roli o sirce 11 cm, 
ktery neni bezne na trhu, a potreba per v cene 80 Kcs (souprava) take nepatr i k jejich prednostem. Proto jsem 
zkonstruoval zapisovac, ktery-odstranuje uvedene nedostatky a umoznuje pripojeni k libovolnemu typu 
pocitace. Pouzivam ho ve spojeni s pocitacem SHARP MZ - 821 a ZX SPECTRUM +. 

V tomto prispevku nebudu uvadet popis mechanicke casti zapisovace, jeji reseni je dnes dostatecne 
zname a neskryva pri peclivem provedeni zadne zaludnosti. Pro posun papiru a pera se vseobecne pouzivaji 
krokove motorky, ktere se daji jednoduse ridit vystupnimi porty mikropocitace, jak bude popsano v dalsim 
textu. Krok zapisovace je prevazne volen 0,125 nebo 0,25 mm, coz umoznuje mimo jine kresleni plosnych 
spoju v rastru 2,5 mm. Doporucuji vsem pripadnym zajemcum, aby se seznamili s provedenim zapisovacu 
ALFI a MINIGRAF 0507. 


Rizeni zapisovace je reseno pouzitim pro- 
cesorove desky JPR 1. Toto reseni neni 
v dnesni dobe uz jiste tim nejlepsim , ale tuto 
procesorovou desku jsem mel k dispozici 
a jeste dnes se objevuje v inzeratech AR. 
Dalsi verze je zpracovana a odzkousena 
s mikroprocesorem Z80, kde se tak podarilo 
snizit odber o vice nez 50%. Zde jiste mnozi 
zajemci namitnou, proc jsme nepouzili jed¬ 
nocipovy mikropocitac nasi produkce napr. 


Tab. 1 Obsazeni portu JPR - 1 


PORT - vst. bit 

KONEKTOR 

SIGNAL H > L 

RDSI1 0 

K3 - 20 

JMP 1000H 

1 

K3 - 17 

- 

2 

K3 - 12 


3 

K3 - 14 

- 

4 

K3 - 13 

- 

5 

K3 - 18 

A4 / ROLE 

6 

K3 - 15 

LF (LF + CR) 

. 7 

K3 - 16 

CR (CR + LF) 

RDSI 0 

K2 - 30 

PRAVY DORAZ 

1 

K2 - 28 

LEVY DORAZ 

2 

K2 - 27 

COLOR A/N 

3 

K2 - 29 

TL. STOP 

4 

K2 - 23 

TL. TEST 

5 

K2 - 26 

TL. READY 

6 

K2 - 24 

RDP (DATA PLATNA) 

7 

K2 - 25 

ASCII / HZ 800 

DSHI 0 

K2 - 6 

DATA 0 

1 

K2 - 4 

1 

2 

K2 - 3 

2 

3 

K2 - 5 

3 

4 

K2 - 2 

4 

5 

K2 - 8 

5 

6 

K2 - 9 

6 

7 

K2 - 7 

7 

PORT - vyst.bit 

KONEKTOR 

SIGNAL 

RDSO 0 

K3 - 24 

- 

1 

K3 - 26 

- 

2 

K3 - 27 

RDA (DATA AKCEPT) 

3 

K3 - 29 

STA (STATUS TISK.) 

4 

K3 - 23 

KROK 0.125/0.25 

5 

K3 - 28 

REPRODUKTOR 

6 

K3 - 30 

LED "BUFF" 

7 

K3 - 25 

LED "READY" 

KOTR 0 

K2 - 13 

FAZE - X 1 

1 

K2 - 14 

X 2 

2 

K2 - 20 

X 4 

3 

K2 - 19 

Y 1 

4 

K2 - 17 

Y 2 

5 

K2 - 15 

Y 4 

6 

K2 - 16 

- 

7 

K2 - 18 

0VL. PERA 


8035. Pokud ale budeme pocitat, zjistime, 
ze nelze usetrit zadne soucastky a pro- 
gramovani Z80 nam bylo blizsi. Jina situace 
by byla s pouzitim ^P 8250-4kB ROM . . . 
Na procesorove desce JPR 1 je osazeno 
4 kB EPROM 2716 a 1 kB RAM 2114. 
Obsazeni portu je patrne z Tab. 1. Port 
PI-IN je pripojen na ridici pocitac a pomoci 
bitu RDA a RDP je rizen prenos mezi pocita¬ 
cem a procesorovou deskou JRR 1. Pro 
vetsi univerzalnost zarizeni je \modne do 



ridicich signalu RDA, STA, RDP, IRT laradit 
hradla EX-OR MH7486, abychom mohli tyto 
signaly invertovat. Signal STA udava status 
plotteru a je softwarove osetren a nevyuziva 
se. Signal IRT je pouzit pro reset JPR 1 od 
pocitafie. Port PO-OUT je pouzit pro rizeni 
motorku a magnetu pro ovladani pera. Tento 
port je pfimo slucitelny se vstupem plotteru 
MINIGRAF 0507, se kterym byl take odzkou- 
sen. Kdo ma moznost pouzit tento plotter, 
nemusi si delat starosti s mechanikou, ktera 
je zde vyresena velice dobre. Tento plotter 
nema koncove spinace, takze se motory 
v koncovych polohach nezastavi; mechani- 
ka je na to prizpusobena. Vyvody pro konco¬ 
ve spinabe se nezapoji. Pres vyvod K3-28 je 
pripojen reproduktor 75 Q; signalizuje stav, 
ve kterem se plotter nachazi. Jde napr. 
o zadost vymeny pera, najeti na doraz, poca- 
tecni inicializace atd. Obsluzny program ma 
kruhovy buffer na 256 znaku a tak umoznuje 
vetsi vyuziti pocitace. Stav tohoto bufferu 
indikuje dioda LED oznacena ,,BUFF“. Dalsi 
dioda oznacena ,,READY" indikuje stav, 
v jakem se JPR 1 prave nachazi. Na portu 


ASCII 



Obr. 2. Graficke schema 
programu 
pro plotter (933-2) 


PO-IN jsou zjisfovany stavy spinacu. Spi¬ 
nace pravy a levy doraz hlasi najeti voziku 
nesouciho pero na konec kresliciho stolku, 
pricemz levy zajisfuje inicializaci pera do 
vychozi polohy. Spinac ,,COLOR“ rika, zda 
ma plotter akceptovat povel pro zmenu bar- 
vy. Kdyz ano, kresleni se zastavi a ceka se 














Obr. 1. Schema zapojeni elektronicke casti plotteru (933-1) 


JPR-1 


MIN/GRAF 0507 
1 K2* 


K2-6 


K2-13 



krok 0,125/0,25 


pravy doraz 
levy doraz 
color N/Y 
tl. stop 
tl. test 
tl ready 
ASCII /MZ800 



*12 V -5 V 

6K1 ~[k 1 Ykl 

1516 51,52 55,56 

17,18 


24 1/ 



24 V 



adr. data 

adr. data ] 

00 

02 

10 

22 

01 

06 

11 

26 

02 

04 

12 

24 

03 

05 

13 

25 

04 

01 

14 

21 

05 

09 

15 

29 

06 

08 

16 

28 

07 

0A\ 

17 

2A 

08 

12 

18 

32 

09 

16 

19 

36 

0A 

14 

1A 

34 

0B 

15 

■IB 

35 

OC 

11 

1C 

31 

0D 

19 

ID 

39 

0E 

18 

IE 

38 

OF 

1A 

IF 

3A 


RDA 

data prev'zata 

JPR-1 -RJ 

STA 

status tiskarny 

JPR-1 — RJ 

RDP 

data platna 

RJ—* JPR-1 

IRT 

reset pro tiskarnu 

RJ — JPR-1 


Trl 

1-2 

220 V 

0,25 A 

3-4 

9 

1,3 A 

5-6 

25 1/ 

1,0 A 

7-9 

2x13 V 

0,1 A 


na vymenu pera. Z reproduktoru se ozyva 
pferusovany ton signalizujici barvu pera, 
kterou si pocitac zada. Jde o sled 1-4 tecek. 
Stiskem tlacitka ,,READY" se plotter opet 
spustl. Pri rozepnutl spinace ,,COLOR" 
mame moinost kreslit barevny obrazec pou- 
ze jednou barvou. bez preruseni. Tlacitko 
„STOP“ umozhuje okamzite zastavenf plot¬ 
teru - spusti se opet tlacitkem ,,READY". 
Protoze tento plotter byl resen hlavne pro 
pouziti s pocitacem SHARP, ktery ma pro 
mala pismena abecedy jine kody nez udava 
tabulka ASCII, je nutne tyto znaky prevadet. 
To je zajisteno s prepinacem prepnutym do 
polohy MZ-800. Pokud je tento prepinac 
v poloze ASCII, znaky se tisknou podle teto 
tabulky. Znaky, ktere nejsou v generatoru 
znaku obsazeny, jsou nahrazeny teckou. 
Tlacltko ,,JMP 1000H" vykona tuto instrukci 
a provede nepodmineny skok na adresu 
1000 pro pripadne dalsi vyuziti JPR1. Prepi¬ 
nac ,,A4/ROLE“ sdeli pocitaci, jestli mame 
zalozen list papiru A4 a pro dalsi psani 
musime inicializovat znovu zacatek stranky, 
nebo zda mame roli a staci vynechat nekolik 
volnych radku. K prepinacum „LF“ a ,,CR“ 
jiste neni co dodavat. Jeste je treba se zminit 
o vystupu pro velikost kroku 0,125 nebo 
0,25 mm. Tento vystup vybira dekoder na- 
programovany v pameti MH74188. Pokud 
bude mit nekdo pripojen plotter 0507, potom 
nemuze tuto funkci vyuzit a yyvod zustane 
nezapojen. 


Ovladani krokovych motoru je rizeno tribi- 
tovym kodem 0-7, ktery pres dekoder ovla- 
da 4 faze krokoveho motoru. Tento dekoder 
v rezimu 0,125 mm otaci motorem o 4,5 
stupne, coz predstavuje 80 kroku na jednu 
otacku. V rezimu 0,25 mm se motor otaci 
o 9 stupnu na jeden krok. Umerne tomu je 
take softwarove zmensena rychlost kroko- 
vani tak, aby vysledna rychlost psani zustala 
nezmenena. To plati pri pouziti dekoderu 
MH74188, ktery je pro tento ucel naprogra- 
movan podle tabulky. Reseni s dekoderem 
bylo pouzito vzhledem k jednoduchemu pri- 
pojeni na plotter MINIGRAF 0507, ktery ob- 
dobny dekoder obsahuje. V dalsi verzi pro- 
gramu je tento dekoder resen softwarove, 
coz dale zjednodusuje elektroniku plotteru. 

V plotteru jsou pouzity motpry SMR 300/ 
300 RI24, ktere se daji objednat pro organi- 
zaci v MEZ Nachod. V maloobchodni siti se 
daji obcas koupit motory SMR 300/100, kte¬ 
re pracuji stejne, pouze vysledna rychlost se 
bude muset v programu zmensit asi o 1/3. 

Dale popsany program radi tento plotter 
mezi inteligentni periferie, ktere na nasem 
trhu stale nejsou a zrejme jeste dlouho nebu- 
dou v takovych cenovych relacich, aby byly 
dostupne uzivatelum domacich pocitacu. 
Mame tak vyresen graficky vystup pocitace 
a jsme schopni kreslit technicke vykresy, 
vykresy plosnych spoju a treba diplomy nebo 
prani k svatku. 


Seznam soucastek 


Rezistory: 

R1, R4 

6,8 Q 

TR 191 

R2* 

12 kQ 

TR 191 

R3* 

8.2 kQ 

TR 191 

R5-R8 

68 Q 

TR 510 

R9 

47 Q 

TR 510 

R10-R12 

100 Q 

TR 191 

Kondenzatory: 

Cl, C2, C5 

1 GF 

TE 984 

C3, C4. C7, C8 

100 nF 

TK 782 

C6, Cl 5 

500 uF 

TE 986 

C9 

50 [iF 

TE 986 

CIO, C11 

200 (iF 

TE 986 

C12-C14 

4,7 itF 

TE 125 

Polovodice: 

D1-D8 


1N5401 

D9-D12 


KYI 30/80 

D13-D21 


KYI 30/150 

D22, D23 


KZ260/18 

D24 


LQ1702 

D25 


LQ1202 

D26 


GA204 

T1-T9 


KF508 

101, 102 


MH74188 

103 


MH7805 

104 


MH7824 

105 


WSH913 

Ostatni: 

MX, MY 


SMR 300/300 RI24 

REPRO ARZ 084 



' Nutno nastavit vystupni napeti. 
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Obr. 3. Nahrada desky JPR-1 zapojenim s mikroprocesorem Z80 (933-3) 
































; * * 

j* ProgrAm pro rizeni plotteru z ridici jednotky * 

i * pres stendertni rozhr*ni Centronics * 

) * >*< 

;* Julius Rom&n SokolovskA 123 Plzen 323 16 '* 

; * =+i 


; H*>ftHtH<H<H(H<>ftH < :H<H<H<H*H<>f<>KHtH<H<H<H*Hi>t‘*H‘>H<H:H<H‘>H<H<H<H'H<>ftH:H<H‘*HtH*H<H<H*H'H<H'HiH<H<H<>f‘>f' 


. 6080 



>soubor instrukci 18080 

. RADIX 

16 


>implicitni ciseln* sousUw* 

SVKORA 

. EGU 

1000 

; ZACAtek dAlsich 4 kbyte 

NEWP 

ECU 

8000 

> zde zAcinA vlAstni progrAm 
; JPR-1 EQU 0 

RAM 

EQU 

08000 

) pocAtecni AdresA promennych 
)JPR-1 EQU 2000 

RDSI1' 

EQU 

8E 

i ustup ridicich signAlu 
i JPR-1 EQU 2C00 

RDSI 

EQU 

90 

;vstup ridicich signAlu 
; JPR-1 EQU 2400 

RDSO 

EQU 

8C 

;vystup ridicich signAlu 




; JPR-1 EQU 2800 

DSHI 

EQU 

8D 

; us tup dAt 
) JPR-1 EQU 2800 

MOTR 

EQU 

90 

> vystup nA krokove rnotory 




; JPR-1 EQU 2400 


. PHASE 
DI 

NEWP 

/ZAkAZ preruseni 


LXI 

SP, STACK; a nAstAU stAck 


MVI 

A, 4 

; pocAtecni nAstAueni 


STA 

RDSO 

; vystupniho portu 


XRA 

A 

i znuluj 


STA 

KLM 

)bit reproduktoru 


STA 

PPORG 

ifunkci dorAZu pro ORG 


STA 

KR025 

j krok- 0. 125 mm 


LDA 

RDSI 

jotestuj tlACitko 


RNI 

10 

; TEST, je-li stisknuto 


CZ 

TEST 

; proved celkovy test 


CALL 

MUSI 

; piskej 


CALL 

GENINI 

> iniciAliZACe generAtoru 

RSI: 

XRA 

A 

i znuluj 


STA 

KLM 

)bit reproduktoru 


STA 

UKRA 

; ukAZAtel rA.dek 


STA 

UKZR 

j - " - znAku nA rAdce 


STA 

KR025 

; jednoduchy krok 0. 125 mm 


STA 

RDSO 

i ridici signAly 


STA 

SPD 

> rychlost 


STA 

PPORG 

;funkci dorazu pro ORG 


I NR 

A 

; bArvA=l 


STA 

COLR 



MVI 

A, 3F 

) pocet rAdek nA stranku 


STA 

PRST 



CALL 

BUFINI 

t iniciAlizAce bufferu 


LXI 

B, 0 



LXI 

D, 0 

i pArAmetry pro ORG 


CALL 

PORG 

;nAstAV pocAtek sour. syct. 


CALL 

CH406 

i 80 znAku nA rAdek 


LXI 

H, 0 

) skutecnA X=0 


SHLD 

SKUTX 



MVI 

A< 1 



STA 

REZI 

j textovy rezim 


STA 

ASCD 

; rezim ASCII 


STA 

PPORG 

; funkce dorAZu pro hAUArii 

RIBL: 

CALL 

BUFE 

;cyklus pro vycitAni prikAzu 


LXI 

D, RIBL 

) riAvrAtouA AdresA pro pprog. 


PUSH 

D 

j do stAcku 


LDA 

REZI 



CPI 

2 

;podle druhu rezimu uyber tAb. 


LXI 

H,TBFG 

; grAficky-grAfickA tAbulkA 


JZ 

RIBG 

i a uyber 


MOV 

A, C 

;rezim textouy 


CPI 

ID 

)je-li kod 1DH 


JZ 

RIB1 

;uyber Adresu 


AMI 

0F0 

;je-li uetsi nez 0FH -> 


JWZ 

PRINT 

jtisknutelny znAk - uytiskni 

RIB1: 

LDA 

RDSI 

; ridici zriAk 


AN I 

80 



CZ 

PREVOD 

; preued podle prepinAce 


LXI 

H, TBFT 

i textouA tAbulkA 

RIBQ: 

CALL 

PROHL 

; uyber podprogrAm z tAbuIky 


PCHL 


; a skoc nA nej 

PROHL: 

MOV 

A, M 

) v C je pouel, u HL AdresA tAb. 


CMP 

C 

> uybere Adresu 


JZ 

PROHU 

;nAsel prikAZ 


CPI 

0FF 

;konec tAbulky 


JZ 

PROHK 



INX 

H 

; HL^HL-kS -> 


INX 

H 

;dAlsi pozice 


INX 

H 



JMP 

PROHL 

;dA.lsi prikAZ u tAbulce 


PROHU: 

INX 

H 

j uybere z tAbulky Adresu 


MOV 

E, M 

; do E 


INX 

H 



MOV • 

D, M 

jdAlsi pulku do D 


XCHG 


; a uymen s HL 


RET 


; nAvrAt 

PROHK: 

POP 

H 

jpouel jsem nenesel 


POP 

H 

)zrus nAvrAtovou Adresu 


JMP 

RIBL 

;dAlsi pouel 

HAVRR: 

LXI 

SP, STACK)zjisti1 jsem dorez 


CALL 

MUS2 

; a hlAsim hAUArii 


JMP 

RSI 

;restArtuj system 

TBFG: 

DB 

48 

; tAbulkA funkci 


DW 

HOME 

jv grAfickem rezimu 


DB 

54 



DW 

SETS 



DB 

45 



DW 

CGRAMS 



DB 

47 



DW 

CGRAMW 



DB 

43 



DW 

COLOR 



DB 

4A 



DW 

RLINE 



DB 

52' 



DW 

RMOVE 



DB 

4C 



DW 

LTVPE 



DB 

44 



DW 

DRAW 



DB 

49 



DW 

HSET 



DB 

4D 



DW 

AMOVE 



DB 

58 



DW 

AXIS 



DB 

53 



DW 

SCALE 



DB 

51 



DW 

ANGLE 



DB , 

50 



DW 

GPRINT 



DB 

1 



DW 

TEXTR 



DB 

46 



DW 

FAST 



DB 

5A 



DW 

SSIZE 



DB 

59 



DW 

DOT 



DB 

57 



DW 

RDOT 



DB 

42 



DW 

DIAC 



DB 

0FF 



DW 

PROHK 


TBFT: 

DB 

2 

; funkce u textovem rezimu 


DW 

GRAFR 



DB 

5 

‘ 


DW 

CGRAMW 



DB 

0D 



DW 

PCR 



DB 

0A 



DW 

PLF 

' 


DB 

8 



DW 

BASP 



DB 

3 



DW 

LINUP 



DB 

4 



DW 

PTEST 



DB 

9 



DW 

DEVET 



DB 

0B 



DW 

CH26 



DB 

7 



DW 

CH408 



DB 

1 



DW 

TEXTT 



DB 

0C 



DW 

STRAN 



DB 

ID 



DW 

CHCOL 



DB 

0FF 



DW 

PROHK 


BUFINI: 

XRA 

A 

; iniciAlizAce bufferu 


LXI 

H, CW 

) znuluj 1. ukAzovAtko 


MOV 

M, A 



INX 

H 



MOV 

M, A 

) pote i druhe 


STA 

CK 



STA 

BUFINT 



RET 



BUFE: 

PUSH 

PSW 

; pprog. pro rizeni prijmu 



BUF2: 


NEZB: 


BUFO: 


SEST: 


BUFW: 


BFI: 


BFI2: 


BFO: 


V 


PUSH 

D 

/ dAt a prAce s bufferem 

PUSH 

H 


LDR 

RDSI 

z test tl. STOP 

RNI 

8 


CZ 

MUS3 

/stisknuto-pozdrz prAci 

LDR 

RDSI 

/test tl. TEST 

RNI 

10 


CZ 

PTEST 

/ stisknuto-prooed test 

LDR 

RDSI1 

/test tl. SVKORR 

RNI 

1 


JZ 

SVKORR 

/ stisknuto-skoc nA jeho Adr. 

CRLL 

BUFO 

/ ulozeni zriAku z portu 

LDR 

BUFINT 

z znAk cten z buff. 

ORR 

fl 

/ nebo z pomocne promenne 

JNZ 

NEZB 

/-z promenne 

CRLL 

BFI 

;-z bufferu 

PUSH 

PSW 

/us c hooe j 

LDR 

KR025 


OR I 

40 

, 

STR 

RDSO 

/rozsoit diodu RERDV 

POP 

PSW 


JZ 

BUFE+3 

/ buff. prAzdny - LED soiti 

LDR 

KR025 


STR 

RDSO 

/neni, zhAsni ji 

POP 

H 


POP 

D 


POP 

PSW 


RET 


/ obnoo reoj. at or At >se 

XRR 

fl 

/znAk neni z bufferu 

STR 

BUFINT 

/priste uz bude 

LDR 

PRECH 

/nActi jej do C 

MOV 

C, fl 


JMP 

BUFZ 

/a orAt se 

LDR 

RDSI 

/jsou priprAoenA dAtA ? 

RNI 

40 


RZ 


/ne, orAt se 

LDR 

DSHI 

/Ano, cti je do C 

MOV 

C, fl 


CRLL 

BFO 

/pokus se Je ulozit do buff. 

RZ 


/ nejde. to - je piny 

LDR 

KR025 


OR I 

4 


STR 

RDSO 

/potord prijem dAtA 

LDR 

RDSI 

/cekej nA shozeni RDP 

RNI 

40 


JNZ 

SEST 


LDR 

KR025 


STR 

RDSO 

/nAstAU inovu priprAoenost 

MV I 

B, 83 


DCR 

8 

zchoili pockej 

RZ 


/ nejdou, orAtime se 

LDR 

RDSI 

/a testuj prijdou-li 

RNI 

40 

/dAlsi dAt-A 

JNZ 

BUFO 

/pris1i 

JMP 

BUFW 

/cekej dale 

LXI 

H, CK 

/ulAstni cteni z bufferu 

MOV 

fl, M 


RRR 

XRR 

M 


RNI 

1 


LXI 

H, BUFF- 

-2 

MOV 

R, M 


MOV 

E, fl 


I NX 

H 


JNZ ' 

BFI 2 


CMP 

M 


RZ 

MV I 

D, 0 


XCHG 

I NX 

H 


DRD 

D 


MOV 

C, M 


XCHG 

DCX 

H 


I NR 

M 


RNZ 

LXI 

H, CK 


MOV 

fl, M 


RRR 



RRR 

CMC 

RflL 

RRL 

JMP 

BF03 



LXI H, CK z ulAstni zApis do bufferu 

MOV fl, M 

RRR 

XRR M 

RNI 1 

LXI H, BUFF-2 

MOV fl,M 

I NX H 

JZ BF02 

CMP M 

RZ 

MV I D, 0 



MOV 

XCHG 

E, M 



I NX 

H 



DRD 

D 



MOV 

XCHG 

M, C 



I NR 

M 



RNZ 




LXI 

H, CK 



MOV 

fl, M 



RRR 

! 



CMC 




RRL 



BF03: 

MOV 

M, R 



I NR 

R 



RET 

' 


PRRRM: 

CRLL 

IGNO 

/ precteni ciselnych PArAm. 


MOV 

fl, C 

/ z bufferu 


CPI 

2D 

/test nA ZAPornA cislA 


MV I 

fl, 0 

; klAdne 


JNZ 

KL1 



MV I 

fl, 1 

/ ZAPorne 

KLRD: 

STR 

PRZ 

/ nAstAU priznAk pro pozdejsi 


LXI 

H, 0 

/ invertovAni 


CRLL 

EX0 

/ulAstni cteni 


JNC 

COMP 

/ zinvertouAni podle znAmenkA 


MOV 

fl, C 

/ uloz posledni znAk znouu 


STR 

PRECH 

/ do bufferu 


MV I 

fl, 1 



STR 

BUFINT 


COMP: 

LDR 

PRZ 

/ j e-1i tAto prom. nAS tAuenA 


CPI 

1 

/ nA 1 neprouAdi invertAci HL 


RNZ 




MOV 

fl, L 

/ nejproe L 


CMfl 




MOV 

L, fl 



MOV 

fl, H 

/ pote i H 


CMfl 




MOV 

H, fl 



I NX 

H 

/ HL=HL+1 


RET 


/ zinuertovAne HL 

KL1 : 

MV I 

fl, 1 

/ neni-li 1. nemezerovy znAk 


STR 

BUFUNT 

/ uloz jej zpet do buff. 


MOV 

fl, C 



STR 

PRECH 



JMP 

KLRD 

/ cislo je klAdne 

EX0: 

CRLL 

BUFE 

/ulAstni cteni ustup HL=0 


MOV 

fl, C 

/ uystup cislo u HL 


CPI 

3fl 



CMC 




RC 


/znAk mirno rozsAh orAt se 

EX1: 

MOV 

B, fl 



CALL 

RC 

NIBBLE 



DRD 

H 

/ zoys HL o dAlsi cislo 


PUSH 

H 



DRD 

H 



DRD 

H 



POP 

D 



DRD 

D 



MOV 

E, R 



MV I 

D, 0 



DRD 

D 



JMP 

EX0 


NIBBLE: 

SUI 

30 

/testuj prislusnost 


RC 


/ do mnoziny 


RDI 

30-4? 

/ hexAdecimAlnich znAku 


RC 


/nepAtri tAm 


RDI 

6 



JP 

NI0 



RDI 

? 



RC 


/nepAtri tAm 

NI0: 

RDI 

0R 



ORR 

fl 



RET 



IGNO: 

CALL 

BUFE 

/ i«noruj mezery 


MV I 

R, 20 



CMP 

C 



JZ 

IGNO. 



RET 



HSET: 

LHLD 

SKUTX 

/funkce HSET 


XCHG 

LHLD 

STPX 

/ nAstAU nooy skut. pocAtek 


DRD 

D 



SHLD 

SKUTX 



JMP 

NULXV 

/ a nuluj okAmzite X a V 

HOME: 

LXI 

B, 0 

/funkce HOME 


LXI 

D, 0 



JMP 

MOVR 

/ presun nA 0, 0 

COLOR : 

CRLL 

PRRRM 

/ funkce COLOR 


I NR 

L 



26 


BF02: 




MOV 

A, L 


C0L1: 

STR 

CKLO 



STR 

COLR 



LDR 

RDSI 



AN I 

4 



RNZ 


> biro a zi.kAZ4.ri*., writ se 


LX I 

H, 0BO 

; neni, iniciAlizuj zoukooy 


SHLD 

KLOPA 

> generAtor 


LX I 

H, 800 

; pod1 e cisI a bAroy 


SHLD 

KLOPB 



MV I 

A, 15 



STR 

KM IT 



■JMP 

MUSIC 

; hi as bArou 

> Umoznuje nAdef inouAt olAstni znak 

CGRRMS: 

CALL 

PARflM 



MOV 

A, L 

; cis1o generAtoru 


ORR 

fl 



JNZ 

CGRfl 



I NR 

fl 


CGRfl: 

RNI 

0F 

;uvAzuje pouze 15 generAtoru 


LX I 

H,CGR-22 

AdresA generAtoru 


LX I 

D, 22 

; max i rn a 1 n i de 1 k a 


CALL 

•NRSOB 

;oypocit uyslednou Adr. 


PUSH 

H 

;uschouej ji 


MV I 

E, IF 

;pocet znAku u generAtoru 


I NX 

H 

> uyhrAd byte 'pro delku 


XRR 

fl 

i uoodni byte nAste.o 


MOV 

M, fl 

; rtA nulu 


I NX 

H 

; dAlsi ‘pozice 


CALL 

BUFE 

i oddelouAC pryc 

CGRS1: 

CALL 

BUFE 

; zriAk z bufferu 


MOV 

fl, C 



MOV 

' M, R 

>do generAtoru 


I NX 

HL 

j dAlsi pozice 


DCR 

E 

; sniz zbyoAjici pocet 


JZ 

CGRSK 

; znAku, je-li 0 ukonci to 


RNI 

80 

j je-li 7. bit nAstAoen 


JZ 

CGRS1 

i konec tooreni znAku 


MV I 

R, 20 

; uypocti delku 


SUB 

E 



POP 

H 

i a uloz J i 


MOV 

M, fl 



RET 



.CGRSK: 

OR I 

80 

> vycerpAnA pooolenA delkA 


DCX 

HL 

>nA.stAU 7. bit na jednicku 


MOV 

M, fl 

; uloz to 

. 

MV I 

fl, 21 

) riAstAo mAxirnAlni 

— 

POP 

H 

; delku 


MOV 

M, fl 



RET 


i navrAt 

Vytisknuti preddefinooAneho znAku 

CGRflMW : 

CALL 

PARflM 

) cis1o generAtoru 


MOV 

fl, L 



ORR 

fl 



JNZ 

CGRC 



I NR 

fl 


CGRC: 

RNI 

0F 

j uoAzuje pouze 15 generAtoru 


LX I 

H,CGR-22 

I; AdresA generAtoru 


LX I 

D, 22 



CALL 

NRSOB 

i uypocti Adresu 


MOV 

fl, M 

i testuj delku 


ORR 

fl 



RZ 


i writ se je-li 0 


MOV 

E, fl 



I NX 

H 



JMP 

WRITE 

; jdi tisknout 

GENINI: 

LX I 

H, CGR 

;iniciAlizuje generAtor 


LXl 

D, IFF 

deice 1/2 kbyte 

GEN INI: 

XRR 

R 



MOV 

M, R 



I NX 

H 



DCX 

D 



MOV 

fl, E 



ORR 

D 



JNZ 

GENINI 

,-pokrAcuj 


RET 


i hotooo 

PMOVE: 

CRLL 

SXV 

;funkce PMOVE 


JMP 

MOVR 


DOT: 

CALL 

SXV 

i funkce POIN'f' 


JMP 

POINTfl 


ROOT: 

CRLL 

SXV 

;funkce RPOINT 


JMP 

POINTR 


SSIZE: 

CRLL 

PARflM 

i funkce SIZE 


SHLD 

SIXX 

i XX 


CRLL 

BUFE 



CRLL 

PRRRM 

1 


SHLD 

SIXV 

; XV 


CRLL 

BUFE 



CfiLL- 

PflRftM 



SHLD 

SIVX 

; VX 


CRLL 

BUFE 



CRLL 

PRRRM 




SHLD 

RET 

SIVV - 

i VV 

DRAW: 

CRLL 

RVCH 

; funkce DRAW 


CALL • 

SXV 



CALL 

VECTfl 



JMP 

RVCHN 


LTVPE: 

CALL 

PARflM 

; funkce LTVPE 


MOV 

fl, L 



RLC 




RLC 


; PArAmetr nAsob 4 


STA 

TPLI 

;uloz jej 


STR 

flKLI 



STR 

RTLI 



MV I 

fl, 80 



STA 

PSLI 



STR 

STWP 

i iniciAlizuj promenne 


RET 


i pro typ cary 

SETS: 

CRLL 

PARflM 

j funkce SPEED 


MOV 

fl, L 



STA 

SPD 

;uloz rychlost 


JMP 

RVCHN 


RVCH: 

LDR 

RTLI 

jprepocte rychlost 


CPI 

0 

; nA skutecnou 


JZ 

RVCHN 

;podle delky kroku 


STA 

TPLI ' 

;a typu cary 


LDfl 

STWP 



STR 

PSLI 



MV I 

B, 18 



CALL 

RET 

SPEDfl 


RVCHN: 

MV I 

B, 0B 

j nAStAU rychlost 


CALL 

SPEDfl 

;pro presuny 


XRR 

fl 



STR 

TPLI 



LDfl 

PSLI 



STA 

STWP 



MV I 

fl, 80 



STfl 

PSLI 



RET 



SPEDfl : 

LDfl 

SPD 



ADD 

B 



STfl 

SPED 



RET 



RMOVE : 

CALL 

SXV 

j funkce RMOVE 


JMP 

MOVR 


RLINE: 

CRLL 

RVCH 

> funkce RLINE 


CALL 

SXV 



CALL 

VECTR 



JMP 

RVCHN 


SXV: 

CALL 

PRRRM 

; nActe z bufferu 


PUSH 

H 

> sourAdnice X a V 


CALL 

BUFE 



CALL 

PARflM 



MOV 

B, H 

> do BC 


MOV 

C, L 



POP 

D 

> a DE 


RET 


* 

RXIS: 

CALL 

BUFE 

i funkce AXIS 


MOV 

fl, C 



CPI 

31 ' 

i os a do smeru 


JZ 

RXISX 

) X 


CALL 

flXIfl 

> pap Arne try osy 

DILV: 

LX I 

8, 0 



LX I 

D, 0FFFC 



CALL 

VECTR 

;dilek 


LX I 

B, 0 



LX I 

D, 8 



CRLL 

VECTR 



LX I 

D, 0FFFC 



LX I 

B, 0 



CALL 

VECTR 



LX I 

D, 0 



LHLD 

PITCH 



MOV 

B, H 



MOV 

C, L 



CALL 

VECTR 

i nA dAlsi pozici 


LDfl 

REPE 

t sniz pocet opikovAni 


DCR 

fl 



JZ 

flXVK 

; konec cfsy 


STfl 

REPE 

> jeste ne 


JMP 

DILV 


RXISX: 

CALL 

flXIfl 

i PArAmetry osy 

DI LX: 

LXI 

B, 0FFFC 

>dilek 


LX I 

D, 0 



CALL 

VECTR 



LXI 

B, 8 



LXI 

D, 0 



CALL 

VECTR 



LXI 

B, 8FFFC 



LXI 

D, 0 



CALL 

VECTR 



LXI 

B, 0 




LHLD 

PITCH 



CALL 

COMP 



XCHG 




SHLD 

SIXX 



CALL 

VECTR 

i na. da.Is i pozic i 


SHLD 

SIVV 

; XX, VV = -uelikost 


LDR 

REPE 

;sniz pocet opakouani 


LXI 

H, 0 



DCR 

R 



SHLD 

SIVX 



JZ 

RXXK 

; konec osy 


SHLD 

SIXV 

; XV, VX = 0 


STR 

REPE 

,jeste ne 


RET 




JMP 

DILX 


VISI: 

LDR 

SIZE 

>podle SIZE uypocte 






I NR 

fl 

; do HL skutecnou uelikost 

RXIA: 

CRLL 

BUFE 

i nacte parametry osy 


MV I 

H, 0 



CALL 

PflRflM 



MOV 

L, fl 



SHLD 

PITCH 

,roztec 


RET 




CRLL 

BUFE 


DIRC: 

CRLL 

PRRRM 

) nastaoi nebo zrus i 


CRLL 

F'RRflM 



MOV 

fl, L 

; diakriticky rezim 


MOV 

fl, L 



STR 

RSCD 



STR 

REPE 

;pocet di lku 


RET 




RET 



SCALE: 

CALL 

PflRflM 

>nastaoi uelikost znaku 






MOV 

fl, L 


RXXK: 

LX I 

D, 0 

;posledni dilek 


STR 

SIZE 



LX I 

B,OFFFC 



MV I 

fl, 0 

> a uhel tisku 0 


CALL 

VECTR 



JMP 

RNGLE+4 



LX I 

D, 0 


PTEST: 

LDR 

REZI 

;neni-li nastaoen textooy 


LX I 

b, e 



CPI 

1 

)rezim nastao ho 


CRLL 

VECTR 



CNZ 

TEXTR 



LX I 

D, 0 



CRLL 

CR 



LX I 

B, OFFFC 



CRLL 

LF 



JMP 

VECTR 

■ i 


CALL 

CH26 


AXVK: 

LX I 

B, 0 



LXI 

H, TSTTB 

i oytiskni text 


LXI 

D, 0FFFC 



MV I 

A, 0E 

; podle tabulky 


CRLL 

VECTR 

* 

TSTT: 

PUSH 

PSW 



LXI 

B, 0 



PUSH 

H 



LXI 

D, 8 



MOV 

C, M 



CALL 

VECTR 



CALL 

PRINT 



LXI 

B, 0 



POP 

H 



LXI 

D, 0FFFC 

, 


I NX 

H 



JMP 

VECTR 



POP 

PSW 







DCR 

fl 


GPRINT: 

CALL 

BUFE 

: funkce GPRINT 


JNZ 

TSTT 



MOV 

A, C 



CALL 

CR 



CPI 

0D 

jje-li CR znamena to konec 


CRLL 

LF 



RZ 


>retezce 


CALL 

MONOP 



LDR 

RDSI 



MV I 

A, 4 



AN I 

80 


PTES2: 

- PUSH 

PSW 

> a podtrhni ho 


CZ 

PREVOD 

; precede znak podle prep. 


LXI 

B, 0 



MOV 

fl, C » 



LXI 

D, 1EF 



RNI 

80 



CRLL 

VECTR 



MOV 

fl, C 

jje-li stalem oetsi nez 127 


LXI 

B, 0FFFE 



JNZ 

GTEC 

juytisken tecku 


LXI 

D, 0FE11 



CRLL 

PCHR 

joytiskni znak 


CRLL 

MOVR 



JMP 

GPRINT 

;znovu 


POP 

PSW 


GTEC : 

MV I 

fl, 2E 

i tecka 


DCR 

fl 



CRLL 

PCHR 

, oytiskni 


JNZ 

PTES2 



JMP 

GPRINT 

; znovu 


CRLL 

LF 







JMP 

TEXTT 


NRSQB: 

DAD 

D 

i fl krat pricte DE k HL 

GRAFR : 

MV I 

L, 1 

i uelikost znaku 1 


DCR 

R 



CRLL 

SCRLE+3 



JNZ 

NRSOB 



MV I 

L, 0 

; typ cary 0 


RET 




CRLL 

LTVPE+3 







MV I 

fl, 2 

; sjraf icky rezim 

ANGLE : 

CRLL 

PRRRM 

j funkce RNGLE 


STR 

REZI 

< 


MOV 

fl/ L 

>uhe 1 do fl 


CALL 

MONOP 

j presun na zacate-k 


CPI 

0 



LHLD 

STPX 

jinicializuj 


JZ 

VODP 

)Modorovne vprawo 


SHLD 

SKUTX 

;souradnice 


CPI 

1 



CALL 

NULXV 



JZ 

DOL 

i svisle do1u 


RET 




CPI 

2 


TEXTT: 

CALL 

CH408 



JZ 

VODL 

, vodoroune vlevo 


JMP 

CR 



CPI 

3 







JZ 

NflH 

;s vis1e nahoru 

.TEXTR: 

MV I 

L/0 

)typ cary 0 


RET 


,neznam 


CRLL 

LTVPE+3 


VODP: 

CALL 

VISI 



MV I 

fl, 1 

jtextoOy rezim 


SHLD 

SIXX 

;XX, VV = oelikost 


STR 

REZI 



SHLD 

SIVV 



STR 

RSCD 

jRSCII rezim 


LXI 

H/ 0 



LHLD 

SKUTX 



SHLD 

SIXV 



XCHG 




SHLD 

SIVX 

; XV, VX * 0 


LHLD 

STPX 



RET 




DRD 

D 


DDL: 

CALL 

VISI 



SHLD 

STPX 

i vypocti skutecnou X 


SHLD 

SIVX 

<VX = oelikost 


LXI 

H, 0 



MV I 

fl/ 1 



SHLD 

NOPX 



STR 

PRZ 



SHLD 

SIXV 



CALL 

COMP 



SHLD 

SIVX 

> parametry pro znak 


SHLD 

SIXV 

; XV ■ -oelikost 


CRLL 

CH408 

t 80 znaku na radek 


LXI 

H/ 0 



XRR 

R 



SHLD 

SIXX 



STR 

UKRfl 



SHLD 

SIVV 

> XX, VV = 0 


STR 

UKZR 

i znuluj ukazatele 


RET 




CALL 

FflST+4 

; jednoduchy krok 

NAH : 

CRLL 

VISI 



RET 




SHLD 

SIXV 

> XV * oelikost 

DEVET : 

CALL 

BUFE 

> prisel kod *09 


MV I 

fl, 1 



MOV 

A, C 

> cti dalsi znak 


STR 

PRZ 



CPI 

9 



CRLL 

COMP 



JZ 

DEVI 

j je to opet *09 


SHLD 

SIVX 

> VX = -oelikost 


STR 

PRECH 

> neni - orat jej 


LXI 

H, 0 



MV I 

R, 1 

> do bufferu 


SHLD 

SIXX 



STR 

BUFINT 



SHLD 

SIVV 

, XX, VV .» 0 


RET 


j a zpet 


ret 



DEVI : 

CALL 

BUFE 

t dalsi znak 

VODL: 





MOV 

A, C 



CALL 

VISI 



CPI 

9 



MV I 

fl, 1 



JZ 

CH80 

i zase *09 


STR 

PRZ 



CPI 

0B 





. JZ 

CH408 

1 t@ntokr3t *0B 

MUS2: 

LXI 

H, 0Ffl • 


STfl 

PRECH 

i *ni jeden z nich 


SHLD 

KLOPfl 


MV I 

fl, 1 

i vr3t„ to do bufferu 


SHLD 

KLOPB 


STfl 

BUFINT 



MV I 

fl, 1 


CALL 

PflRflM 

*cti cislo 


STfl 

CKLO 


MOV 

A, L 



MV I 

fl, 30 


STfl 

PRST 

;ri3st3v pocet r. n* str3.nku 


'STfl 

KMIT 


CALL 

BUFE 

;oc*d@lov3C pryc 


JMP 

MUSIC 


JMP 

STRflN 

; ri3St3V novou str3nu 

MUS3: 

LXI 

H, 1F4 

CH80: 

CALL 

CR 

;udelej CR 


SHLD 

KLOPB 


LX I 

H, 2 

; ri3st3v velikost zn3ku 


SHLD 

KLOPfl 


SHLD 

SIXX 



MV I 

fl, 1 


SHLD 

SIVV 



STfl 

CKLO 


MV I 

A/ 78 

;3 pocet zn3ku 


MV I 

fl, 70 


STfl 

PZRfl 



STR 

KMIT 


RET 




JMP 

MUSIC 

CH408-. 

CALL 

CR 

;udelej CR 

MUSIC: 

LDfl . 

CKLO 


LX I 

H, 3 

;n3st3.v velikost 


STfl 

CKL01 


SHLD 

SIXX 



LHLD 

KLOPfl 


SHLD 

SIVV 



SHLD 

KL0P1 


MV I 

ft, 50 

i 3 pocet zn3ku 

MUSV: 

CALL 

BEEP 


STfl 

PZRfl 



LHLD 

KL0P1 


RET 




DCX • 

H 

CH26: 

CfiLL 

CR 

;udelej CR 


MOV 

fl, L 


LXI 

H, 6 

; n3st3v velikost zn3ku 


ORA 

H 


SHLD 

SIXX 



SHLD 

KL0P1 


SHLD 

SIVV 



JNZ 

MUSV 


MV I 

fl, 28 

> 3 pocet zn3ku 


LDfl 

CKL01 


STfl 

PZRfl 



DCR 

fl 


RET 




STfl 

CKL01 

PRINt: 

LDfl 

RDSI 

>podle prepin3ce zn3k 


JNZ 

MUPRO 


AN I 

80 



LHLD 

KLOPB 


CZ 

PREVOD 

; preved 


SHLD 

KL0P2 


MOV 

A, C 

;neprev3dej 

MUSN: 

LDfl 

KMIT 


AN I 

80 

;je-li s 8. bitern 


CftLL 

WflITfl 


MOV 

fl, C 



CALL 

TLflC 


JNZ 

PTECK 

;tiskni tecku 


LHLD 

KL0P2 


JMP 

PRNI 

;neni- tiskni jej 


DCX 

H 

PTECK: 

MV I 

fl, 2E 

;kod tecky 


MOV 

fl, L 


JMP 

PRNI 

*vytisknout 


ORA 

H 

NOVR: 

PUSH 

B 

>schovej si BC 


JZ 

MUSIC 


CALL 

CR 

; ude1ej CR 


SHLD 

KL0P2 


CALL 

LF 

> jeste LF 


JMP 

MUSN 


POP 

B 

i obhov BC 

MUPRO: 

MV I 

B, 68 


RET 


> 3 zpet 


CALL 

P50 

PRNI:. 

CALL 

PCHR 

; jdi tisknout 


JMP 

MUSIC+6 


LDfl 

UKZR 

) pocet zn3ku 

TLflC: 

LDfl 

RDSI 


I NR 

fl 

i zvys 0 jendu 


AN I 

20 


MOV 

B, fl 



RNZ 


mm 

LDfl 

PZRfl 

jporovnej s n>3xim3lnim 

STISK: 

LDfl 

RDSI 


CMP 

B 



AN I 

20 


JZ 

NOVR 

;stejne, udelej novou r3dku 


JZ 

STISK 


MOV 

fl, B 



POP 

H 


STfl 

UKZR 

; uloz to zpet 


LDfl 

KR025 


RET 




AN I 

7F 

PREVOD: 

LXI 

H, TflBPR 

i 3dres3 prevodni t3bulky 


STfl 

RDSO 


MOV 

fl, M 

1 kod z t3b. do fl 


RET 



CMP 

C 

1 porovnej s pr@v3d@nym 





JZ 

VVMEN 

; hur«. - je to on 

BEEP: 

LDfl 

KLM 


CPI 

0 

) neni uz konec t3.bulky ? 


XRI 

20 


RZ 


t je - n3vr3t 


STfl 

KLM 


I NX 

H 

i neni - d3lsi polozk3 


OR I 

80 


I NX 

H 



MOV 

B, fl 


JMP 

PREV0D+3J 3 ' znovu 


LDfl 

KR025 

VVMEN: 

I NX 

H 

*n3.sledujici pozice 


ORA 

B 


MOV 

C, M 

t presun 


STfl 

RDSO 


RET 


; 3 vr3t^ se 


LDfl 

KMIT 






CALL 

WflITfl 

STRflN: 

XRfl 

fl 

1 znuluj 


JMP 

TLflC 


STfl 

UKZR 

;uk3Z3tel zn3ku 

WflITfl: 

DCR 

fl 


STfl 

UKRfl 

juk3Z3tel r3dek 


RZ 



LDfl 

RDSI1 

i testuj typ P3piru 


JMP 

WflITfl 


AN I 

20 


CR: 

XRfl 

fl 


JZ 

STRR 

1 -> role 


STfl 

UKZR 


CALL 

MUS2 

; fl4 ■ piskej 


LXI 

H, 0 


LHLD 

STPX 

; vypocti vzde.lenost 


SHLD 

NOPX 


MV I 

fl, 1 

i od okr3je 


RET 



STfl 

PRZ 


LF: 

LDfl 

UKRfl 


CALL 

COMP 

> 3 ri3sob -1 


I NR 

fl 


XCHG 




STfl 

UKRfl 


LXI 

B, 190 

;konst@.nt3 V pro novy Z3C. 


LXI 

H, PRST 


CALL 

MOVR 

i presun 


CMP 

M 


JMP 

NULXV 

) nuluj sour3dnice 


JZ 

STRflN 

STRR: 

CALL 

MONOP 

i presun r>3 pozici d3lsiho t. 


CALL 

VVPV 


LXI 

D, 0 



MV I 

fl, 1 


LXI ' 

B,0FF10 

;konst3nt3 pro vynech3ni 


STfl 

PRZ 

STRR1: 

CALL 

MOVR 

; mist3 


CALL 

COMP 


CftLL 

CR 

> udelej CR 


XCHG 



CALL 

LF 

i jeste 1 LF 


LHLD 

NOPV 


XRfl 

fl 

; znuluj uk3Z3tel r3dek 


DAD 

D 


STfl 

UKRfl 



SHLD 

NOPV 


RET 


; n3vr3t 


RET 


MUSI: 

LXI 

H, 64 

;inici3liz3ce zvukoveho 

CHCOL: 

LDfl 

COLR 


SHLD 

KLOPfl 

i «ener3toru rt3 st3nd3rtni 


I NR 

ft 


LXI 

H, 1 

; hodnotu pro 3 typy pisk3ni 


CPI 

5 


SHLD 

KLOPB 



JNZ 

C0L1 


MV I 

fl, 1 



MV I 

fl, 1 


STfl 

CKLO 



JMP 

C0L1 


MV I 

fl* 30 


MONOP: 

LHLD 

NOPX 


STfl 

KMIT 



XCHG 



JMP 

MUSIC 



LHLD 

NOPV 


;vl33tni cjenerovani zvuku 

)jedno pisknuti 

;odpisk*no ? -> n@ 

; 3no 

> budeme c hvi1i potichu 
) testuj tl3citko 


; P3UZ3 

> je-1 i stisk tl. 
i ne 

i 3no -> cekej 
i n3 jeho pusteni 

>3 zhAsni diodu 

i podle frekvence zmeni 
i st3v reproduktoru 

> + rozsvicen3 diod3 


>3 jeste otestuje tl3.citko 
; smyck 3 

i znuluj 
i pocet zn3ku 

>tisk bude od kr3je 

i provede LF 

<test n«. pocet ra.dek 
) W3xim3lni -> str3nkuj 
i vypocti V 


itisk bude o r«.dku niz 
; ri3st3vi ti3sledujici b3rvu 

;byl3-li 4 n3st3vi znovu 1 
) presun n* poz. pristiho zn3ku 



MOV 

B, H 


MOVR: 

CALL 

PNUP 

i zvedni pero 


MOV 

C, L 



JMP 

RELA 

i relativni presun 


JMP 

MOVA 

. 

VECTR: 

CALL 

PNDW , 

;spust pero 

BASP: 

LDP 

UKZR 

;proved© zpetny krok 


JMP 

RELA 

>relativni presun 


DCR 

A 


POINTR: 

CALL • 

PNUP 

;zvedni pero 


I NR 

A 



CALL 

RELA 

)relativni presun 


R2 


; vrat se osi-li na zac. radky 


JMP 

PNPT 

;udelej bod 


DCR 

A 







STA 

UKZR 


PNPT: 

CALL 

PNDW 

)spust pero 


CALL 

WPX 



JMP 

PNUP 

; zvedni pero *» bod 


MVI 

A, 1 


SPEED: 

ADI 

8 

i nastav ryehiost 


STR 

PRZ 



STA 

SPED 



CALL 

COMP 



RET 




XCHG 



TEST: 

JMP 

VTEST 



LHLD 

MGPX 







DAD 

D 


PORG: 

MVI 

A, 14 

>nastav si rychlost 


SHLD 

NOPX 

; X na.stav na predchozi znak 


STA 

SPED 


i 

RET 




STA 

P185 


WPX: 

LHLD 

SIXX 

i vypocte X podle 


PUSH 

D 

)schovej zadane X, V 


MOV 

A/ L 

;sirky znaku 


PUSH 

B 



MVI 

A, 6 



MVI 

A, 1 



XCHG 




STA 

SPEN 

i pero je dole 


LXI 

H, O 



LXI 

B, 8 



JMP 

NASOB 



MOV 

D, B 


LI HUP: 

LDR 

UKRA 

i proved© posun o radek, zp©L 


MOV 

E, C 



DCR 

A 



CALL 

MOVR 

>par kroku doprava nahoru 


INR 

A 



MVI 

A, 08 

j uprav rychlost 


RZ 


j zac. s trank y - vrat s© 


STA 

SPED 



DCR 

A 



LXI 

H, 6A4 

; maxirnalni X 


STA 

UKRA 



SHLD 

STPX 



CALL 

VVPV 



LXI 

H, 0FE70 

i V po zalozeni papiru 


XCHG 




SHLD 

STPV 



LHLD 

NOPV 



POP 

B 



DAD 

D 



PUSH 

B 

i obnov V - presun na zadane V 


SHLD 

NOPV 

;V nastav o radek zpet 


LXI 

D, 0 

i okamzit© a na 0 do X 


RET 




CALL 

MOVA 


VVPV: 

LHLD 

SIVV 

;vypocte V podle 


POP 

B 

; obnov V . 


NOV 

A, L 

i vysky radky 


PUSH 

B 

\ 


ANI 

0FE 



LXI 

D, 58 

;kousek doprava 


RRC 




CALL 

MOVR 



MOV 

. E, A 



XRR 

A 



MVI 

D, 0 



STA 

STPX 



DAD 

D 



STA 

TPLI 



XCHG 




CALL 

NULXV 

i znuluj souradnice , 


LXI 

H, 0 



POP 

B 



MVI 

A, 8 



POP 

D 



CALL 

NASOB 



CALL 

MOVfl 

; presun na zadane X, V 


RET 



KTST: 

MVI 

A, 0A 


PCR: 

CALL 

CR 

;podle prep, udela CR 


STA 

P185 



LDA 

RDSI1 

i nebo CR + LF 


LXI 

H, 3 

;standartni velikost znaku 


ANI 

80 



SHLD 

SIXX 



RNZ 




SHLD 

SIVV 



JMP 

LF 



MVI 

L, 0 


PLF: 

CALL 

LF 

;podle prep, udela LF 


SHLD 

SIXV 



LDA 

RDSI1 

> nebo LF + CR 


SHLD 

SIVX 



ANI . 

48 



SHLD 

ASCD 

j rezim 


RNZ 




MVI 

A, 80 



JMP 

CR 



STA 

NARW 

j mezera 

FAST: 

CALL 

PARAM 

» nastav krok 


STA 

PSLI 

>s tav pera 


MOV 

A, L 



RET 


, 


ANI 

1 


RELA: 

LHLD 

STPX 

i k X pricti relativni DX 


RLC 




DAD 

D 

)= nova X 


RLC 




XCHG 




RLC 




LHLD 

STPV 

;totez s V 


RLC 




DAD 

B 

\ 


STA 

KR025 



MOV 

B, H 



ANI 

10 



MOV 

C, L 

) a muzes udelat abs. presun 


JNZ 

F025 


ABSO: 

LHLD 

STPX 

>DE = zadana Xz 


MVI 

A/ 0 

;uprav ryehiost 


XCHG 


;HL = skutecna X 


JMP 

SETS+4 

; pro 0. 125 mm 


SHLD 

STPX 

; DE <=> HL > X <=> Xz 

F025: 

MV I 

A, 10 

; pro 0. 25 mm 


SHLD 

NOPX 

; a uloz na novou poz. tisku 


JMP 

SETS+4 



CALL ' 

SMR 

;zjisti srner posuvu pro X 




>prevod SHARP -> ASCII 


PUSH 

H 

j s.chovej rpzdil X a Xz 






PUSH 

B 

i schovej Vz 

TABPR: 

DB 

0D7, 10 

0FC, 17, 5E, 18 


MOV 

C, A 

;C = smer posunu 


DB 

. 0F» 0C, 

0E, 8, 0C, 7 


POP 

D 

;DE = predesle BC tj. zadana Vz 


DB 

0C6,19 

, 5F, 1A, 0AE, IB 


LHLD 

STPV 

jHL = skutecna V 


DB 

8 FB,1C 

OFF, IE, 0CF, IF 


XCHG 


> DE <=> HL } V <=> Vz 


DB 

SB, 5E, 

93, 68, 0A1, 61 


SHLD 

STPV 



DB 

9fl, 62, 

9F, 63, 9C, 64 


SHLD 

NOPV 

i uloz 


DB 

92, 65, 

OAR, 66, 97, 67 


CALL 

SMR 

;a zjisti smer pro V 


DB 

98, 68, 0A6, 69, OAF, 6A 


RLC 




DB 

6A9, 6B 

, 0B8, 6C, 0B3, 6D 


RLC 




DB 

0BO, 6E 

0B7, 6F, 9E, 70 


RLC 




DB 

OA0, 7i 

, 9D, 72, 0A4, 73 


RLC 


i do vyssich 4 bitu v A 


DB 

96, 74, 

0A5, 75, 0AB, 76 


MOV 

B, A 



DB 

0A3, 77 

, 9B, 78, OBD, 79 


ORA 

c 

; s loz s C 


DB 

0A2, 7A 

, 0BE, 7B, 80, 7D 


STA 

DIRE 

j <= smer do V p. do X 


DB 

94, 7E, 

0 


POP 

D 

; obnov rozdil X a Xz 




i tabulka tisku pro test 


RZ 


;Jsou-li oba posuny 0 vrat se 

TSTTB: 

DB 

2A, 2A, 

2A, 20, 4D, 5R 


MOV 

A, L 



DB 

2D, 38, 

32, 31, 20, 2A 


SUB 

E 



DB 

2A, 2A 



MOV 

A, H 







SBB 

D 

> test, ktery posun je vetsi 

MOVfl: 

CALL 

PNUP 

> zvedni pero ' 


MOV 

. A, C 

; A = s mer pos unu X 


JMP 

ABSO 

> presun na X, V 


JC 

DALX 

;skoc protoze <Vz-VX<Xz-X> 

VECTA: 

CALL 

PNDW 

; spust pero 


XCHG 


; DE <=> HL ; <Xz-X> <=> <Vz-V> 


JMP 

ABSO 

;pres uri na X, V 


MOV 

A, B 

j A = smer do V 

POINTA 

CALL 

PNUP 

i zvedni pero 

DALX: 

STA 

DIR1 

j uloz smer 


CALL 

ABSO 

; presun na X, V 


SHLD 

DIFF 

u uloz taky rozdil 


JMP 

PNPT 

; udelej bod 


LXI 

H, 14 

,-male pozast aveni 





CRLL 

FMOT1 




CALL 

PCHR4 



MV I 

fl, 29 




MOV 

fl/ M 



STfl 

flCCE 

;rozbehouA ryehiost 



ORfl 

fl 



MOV 

B, D 

;BC = rozdi1 



JP 

WRCON 



MOV 

C, E 




XRfl 

fl 



XRfl 

fl 




STfl 

COUNZ 



SUB 

E 




CALL 

PCHR3 



MOV 

L, fl 



WRCON: 

I NX 

H 

/dA.lsi pozice znAku 


MV I 

fl/ 0 




DCR 

E 

; zbyuAjici pocet 


SBB 

D 




JMP 

WRIT1 

, a znouu 


MOV 

H/ fl 

j HL = DE * -1 


BS08: 

PUSH 

H 

;neni-li nAStAuen bs 


XRfl 

fl 




LXI 

H, BS 

, nA nulu nedelA nic 


MOV 

fl/ D 




XRfl 

fl 



RRR 





CMP 

M 



MOV 

D, fl 




MOV 

M/ fl 



MOV 

fl/ E 




JNZ 

BSNfl 



RRR 





LHLD 

NOPX 

/jiriAk riAstAMi tisk zriAku 


MOV 

E/ fl 

;DE = DE / 2 



SHLD 

PREX 

) rt a homou pozici 

ABS1: 

PUSH 

H 

/ sc hove j HL a DE 



LHLD 

NOPV 



PUSH 

D 




SHLD 

PREV 



XCHG 


; DE <==> HL 


BSNfi: 

POP 

H 



MOV 

H/ B 




RET 




MOV 

L/ C 

/ HL = BC 


PCHR : 

PUSH 

H 



DflD 

H 




LXI 

H/ BS 



OCX 

H 

)HL 3 HL * 2 - i 



CPI 

8 



DflD 

D 

/ HL = HL + DE 



JNZ 

NOBS 



LXI 

H/ flCCE 




MOV 

M/ fl 

, rriA-1 i k od *08 


JNC 

ABS2 

> je-li HL >= 8 skoc 



POP 

H 

; pouze jej uloz 


LDR 

P185 




RET 


; a return 


CMP 

M 



NOBS: 

AN I 

7F 

/pouze 7 bitu 


JZ 

ABS2 




MOV 

C/ fl 



DCR 

M 




CALL 

BS88 

, uyhodnot byl-Ii kod *08 

flBS2: 

MV I 

fl/ 28 




LDfl 

ASCD 



SUB 

M 




ORfl 

fl 



SUB 

C 




JNZ 

NODIfl 

■, skoc pri ASCII rezimu 


MV I 

fl/ 0 




MOV 

fl/ C 



SBB 

B 




CPI 

7B 



JC 

ABS3 




JC 

NODIfl 

;skoc neni-li to diAkr. znAk 


I NR 

M 




ADI 

5 

; zvys riA diAkr. zriAmenkA 

ABS3: 

LHLD 

DIFF 




MOV 

C/ fl 



POP 

D 




I NR 

M 



DflD 

D 



NODIfl: 

MOV 

fl/ C 

, znAk do fl 


XCHG 





CPI 

10 

, je-li mensi nez'10 


POP 

H 




JC 

PCHR2 

j skoc 


PUSH 

H 




AN I 

0F8 

; ne - znuluj 3 nejnizsi foity 


DflD 

D 




RflR 


; uydel 2 


LDFi 

DIR1 




RflR 


, 4 


JNC 

ABS4 




flDI 

0FC 

; odecti 3 


XCHG 





ADI 

LOW ATB1 

;+ nizsi byte Adresy tAb. 


LDfl 

DIRE 




MOV 

L/ fl 

, do L 

ABS4: 

PUSH 

D 




MV I 

fl, 0 



CALL 

ELEM 




ACI 

HIGH ATB1 


DCX 

B 




MOV 

H, fl 

,do H oyssi byte tAbulky 


MOV 

fl/ B 




MOV 

fl, M 



ORfl 

C 




I NX 

H 



POP 

D 




MOV 

H, M 



POP 

H 




MOV 

L, fl 

>do HL Adresu generAtoru 


JNZ 

RBSl 




MOV 

fl, C 



RET 





AN I 

7 

jpouze 3 nejnizsi bity 

SMR: 

MOV 

fl/ L 

i orAti fl = 0 pro skut. 

= zadAne 


MOV 

C, fl 

' 




/ fl = 1 pro skut. 

< ZAdAne 


JZ 

VVZN 

; jsou-1i 8 skoc 




; fl = F pro skut. 

> ZAdAne 

SKZN :. 

MOV 

fl, M 

, nejsou 


SUB 

E 




ORfl 

fl 



MOV 

L/ ft 

Lll 

i 

_l 

ii 

_) 



I NX 

H 



MOV 

fl/ H 




JP 

SKZN 

/testuj nejoyssi bit 


SBB 

D 




DCR 

C 



MOV 

H/ fl 

i H = H - D - predchozi 

znAtfi. 


JNZ 

• SKZN 

, Adresu nA znAk podle nich 


DflD 

H 

/ HL = HL * 2 


VVZN: 

MV I 

fl, 8 

>znAk o CG uybrAn 


JNC 

SMVL 

;-> je-li HL klAdne 



CALL 

PCHR4 



XRfl 

fl 

; zaiporne “ preved na. klAdne 

PCHR1: 

MOV 

fl, M 



.SUB 

L 




CALL 

PCHR4 



MOV 

L, fl 




MOV 

A, M 



MV I 

fl/ 0 




I NX 

H 



SBB 

H 




ORfl 

fl 



MOV 

Hz fl 

; HL = -1 * HL 



JP 

F'CHR'i 



MV I 

fl/ OF 

; priznAk a nAMrAt 


PCHR2: 

POP 

H 



RET 




PCHR3: 

PUSH 

H 


SMVL: 

MOV 

fl/ H 




LDfl 

NflRW 



ORfl 

L 




RLC 




RZ 


; je-li HL = 0 urAt se 



RflL 




MV I 

fl/ 1 




flDI 

0 F6 



RET 


;jiriAk priznAk a nAurAt 


CMfl 



WRITE: 

XRfl 

fl 




MV I 

C, 0 



STfl 

CQUNZ 




CALL 

PCHR5 


WRIT1: 

MOV 

fl/ E 




POP 

H 



ORfl 

fl 

/je-li delkA-nulow» 



RET 




RZ 


; or-s.t s e 


PCHR4 : 

MOV 

C, ft 



LDfl 

COUNZ 




AN I 

? 



ORfl 

fl 

jneni-li 1. zri*k 


PCHR5 : 

PUSH 

H 



JNZ 

WRIT3 

; skoc 



PUSH 

D 



MOV 

fl/ M 

/ je to pruni zriAk 



PUSH 

PSW 



ORfl 

fl 

; testuj je-li 0 



LHLD 

SIXX 



JZ 

WRIT2 

; je - ts.k skoc 



XCHG 


‘ 


MOV 

fl/ M 

> neni/ jdi jej uytisknout 


LHLD 

PREX 



CALL 

PCHR 




CALL 

PCHR8 



JMP 

WRCON 




XCHG 



WRIT2: 

I NR 

fl 




MOV 

fl, C 



STfl 

COUNZ 




AN I 

38 



CALL 

BS08 




RflR 



WRITS: 

MOV 

fl/ M 




RflR 






RfiR 




MOV 

fl, H 



LX I 

H/ BS 



ORfl 

L 



ADD 

M 



JNZ 

FMOT1 



MOV 

B, R 



RET 




LHLD 

SIVX 







XCHG 



PRELI: 

PUSH 

B 

; k re*Ii prerus ouanou 1ink u 


CALL 

PCHR8 



PUSH 

PSW 

;je-li povolena 


POP 

PSW 



RNI 

80 

i mas-1i pouze‘pres ouuat 

' 

PUSH 

H 



JZ 

LINR 

;neprerusuj 


LHLD 

SIXV 



LDfl 

TPLI 

i neprerusuj take 


XCHQ 




ORfl 

fl 

i kdyz je typ cary 


LHLD 

PREV 



JZ 

LINR 

j nastaven na plnou 


CfiLL 

PCHR8 



LDfl 

flKLI 

; sniz pocet zfoyvajicich kroku 


MOV 

fl, B 



DCR 

fl 

js okamzitym stavern pera 


XCHQ 




JZ 

LINZ 

ije-li 0 musis jej zmenit 


LHLD 

SIVV 



STfl 

flKLI 

;uloz a neprerusuj 


XCHG 



LINR: 

POP 

PSW 

i vystupni slovo pro motory 


CPILL 

PCHR8 



MOV 

B, fl 



PUSH 

H 



LDfl 

PSLI 

;nastav pero 


MOV 

fl, C 



OR I 

7F 



RNI 

40 



flNfl 

B 

ipodle aktualniho stavu 


JZ 

PCHR6 



STfl 

MOTR 

;pos1i to na motory 


LHLD 

NOPX 



POP 

B 

< 


XCHG 




RET 




LHLD 

NOPV 


LINZ: 

LDfl 

PSLI 

icti stav pera 


MOV 

B, H 



OR I 

7F 

i ostatni do jednicky 


MOV 

C, L 



MOV 

B, ft 



LDR 

SPEN 



POP 

PSW 

i obnov vystupni slovo 


ORfl 

R 



flNfl 

B 

iorizni podie pera 


CZ 

MOVR 



STfl 

MOTR 

i pos1 i to na motory 


POP 

B 



CALL 

P50MS 

;pockej na zmenu polohy pera 


POP 

D 



LDfl 

PSLI 

izinvertuj stav pera 


CALL 

VECTfl 



XRI 

88 



JMP 

PCHR7 



STfl 

PSLI 

ia uloz jej 

PCHR6: 

CALL 

PNUP 



LDfl 

TPLI 

;obnov aktualni 


POP 

H 



STfl 

flKLI 

;typ cary » 


SHLD 

NOPV 



POP 

B 



POP 

H 



RET 




SHLD 

NOPX 






PCHR7: 

POP 

D 


P50MS: 

MV I 

B, 19 

j zpozdeni 50 ms 


POP 

H 


P59: 

MV I 

C, 0F4 



RET 



P50R: 

DCR 

C 

;vnitrni smycka 

PCHR8: 

I NR 

E 



JNZ 

P50fl 



DCR 

E 



DCR 

B 

;hlavni smycka 


RZ 




JNZ 

P50 



PUSH 

H 



RET 


* 


LX I 

H, 0 






PCHR9: 

DCR 

fl 


DRZ: 

MOV 

L, fl 



JM 

PCHR0 



RNI 

0F 

;neni-li posun ve smeru X 


DRD 

D 



JZ 

DRZN 

i doraz netestuj 


JMP 

PCHR9 



CPI 

1 


PCHR0: 

POP 

D 



LDfl 

RDSI 



DRD 

D 



JZ 

DRZR 

i posun doprava, zkus pravu 


RET 




RNI 

1 





j proved krok s motory 


JNZ 

DRZN 

i 1 . doraz neni, zkus druhy 





DRZV: 

MOV 

fl, L 

izjistil jsem dpraz 

ELEM: 

CALL 

DRZ 

izjisti Jsi-li na dorazu 


RNI 

0 F0 

izakazuji posun ve smeru X 


LHLD 

SMOT 

i okamzity stav motoru 


PUSH 

PSW 



MOV 

H< fl 



LDfl 

PPORG 

,je-li PP0RG*1 

■ 

ADD 

L 

j pricti krok k motoru 


ORfl 

Pi 



RNI 

0 F 

> spodni bity motoru 


JNZ 

HflVflR 

i vyhlas havarii 


MOV 

E, fl 

i do E 


POP 

PSW 

i jinak se vrat do pro^ramu 


MOV 

fl, H 

) druhy motor 


RET 


ikteryte zavolal 


RNI 

0F0 

ivyssi bity , 

DRZR: 

RNI 

2 

ijeste'druhy doraz 


ADD 

L 

;pricti krok 


JZ 

DRZV 

i stisknut 


RNI 

0F0 

;opet pouze vyssi bity 

DRZN: 

MOV 

fl, L 

i doraz jsem nezjistil 


ORfl 

E 

i s loz s E 


RET 


i vracim 


STfl 

SMOT 

i uloz to na stav motoru 






XRR 

fl 


NULXV: 

LX I 

H, 0 

i okamzita poloha 


MOV 

H, fl 



SHLD 

STPX 

i pera je nastavena 


LDfl 

RCCE 



SHLD 

STPV 

ijako zakladni <0, 0> 


RRR 

MOV 

L, fl 

■, HL = rychlost snizena na 1X2 


SHLD 

SHLD 

NOPX 

NOPV 



JMP 

NRSTM 



RET 



PNUP: 

LDR 

SPEN 

■, zvedni pero 






DCR 

R 


i tento 

pproa. 

isrouede 

celkovy test tiskarny 


RNZ 


ije-li zvednuto vrat se 

i vyzaduje papir zalozeny na funkci ORG 


JMP 

NRSTP 






PNDW: 

LDR 

SPEN 

;spust pero 

VTEST: 

LX I 

D, 186 



DCR 

fl 



LX I 

B, 0FFB0 


RZ 


ije-li uz dole vrat se 


CALL 

PORG 

i proved ORG na pozici X, V 


MV I 

fl, 1 



MV I 

fl, 0fl 


NflSTP: 

STR 

SPEN 

;uloz to na stau pera 


STfl 

SIXX 



LX I 

H, 1F4 

; pauza pro pero 


STfl 

SIVV 

ivelikost znaku 

NflSTM: 

PUSH 

H 



ADD 

fl 



LHLD 

SPEN 



STfl 

pies 



MOV 

fl, H 



XRfl 

fl 



RNI 

0 E 



STfl 

f NflRW 

i mezera 


ORR 

L 



I NR 

fl 



MOV 

L, fl 



STfl 

flSCD 

i ASCII rezim 


MOV 

fl, H 



MV I 

H, 10 



RNI 

0E0 


TCON: 

MOV 

fl, H 

i smycka pro tisk cele tab. 


RRC 




CALL 

PCHR 



ORR 

L 



I NR 

H 



RRC 


‘ 


MOV 

fl, H 



CRLL 

PRELI 



AN I 

7 



POP 

H 



JNZ 

TCON 

i daisi znak 

FM0T1: 

LDfl 

SPED 



PUSH 

H 

i byla uz radka 

FM0T2: 

DCR 

fl 



MOV 

H, D 



JNZ 

FM0T2 



MOV 

L, E 



DCX 

H 



SHLD 

NOPX 



LHLD NOPV ; posun na dalsi 

LX I B, 0FF80 i radek 

DRD B 

SHLD NOPV 

POP H 

MOV fl, H 

ORA R 

JP TCON 

JMP KTST 

RTB1: DW TB1 j odkazy do jednotliyych 

RTB2: DW TB2 > tabulek generatoru 

RTB3: DW TB3 ;znaku 

RTB4: DW TB4 

RTB5: DW TB5 

RTB6DW TB6 

RTB7: DW TB7 

RTB8: DW TB8 

ATB9: DW TB9 

RTB18: DW TB10 

RTB11: DW ,/TBll 

RTB12: DW TB12 

RTB13: DW TB13 

RTB14: DW TB14 

RTB15: DW TB15 

sulastni generator znaku , 


TB1: DB 38/ 70, 74/ 70, 78, 80 

DB 8, 78, 7C, 4C, 48/ 32/ 52 

DB IB, 52/ 59, 80/ 08/ 78/ 7C 

DB 40/ 48/12/ 72/ 2B, 72/ 69 

DB 88/ 8/ 78/ 70/ 40/ 48/ 21 

DB 63/ 2fl, 63/ 5R, 80, 8/ 78 

DB 70, 40, 48, 21, 63, 2fl, 61 

DB 5R, 80, 8, 78, 70, 40/ 48 

DB 11, 71, 33, 53, 23/ 61/ 80 

DB 8, 78, 70, 40, 48, IB, 52 

DB 59, 69, 72, 6B, 80, 3fi, 4R 

DB 60, 24, 4fl, 80 

TB2: DB 0R, 7fi, 60, 24, 7fi, 80 

DB 20, 64, 52, 32, 64, 80, 24 

DB 60, 52, 32, 60, 80, 0, 49 

DB 79, 7B, 74, 6B, 69/ 6B, 64 

DB 50, 54, 4B, 4fl, 51/ 80, 0C 

DB 4B, 59, 58, 48, 49, 79, 7B 

DB 74, 2R, 68, 80, 86, 8, 51 

DB 69, 28, 60, 2fl, 4R, 4B, 54 

DB 80, 8, 50, 54, 40, 48, 80 

-*B3: DB 80- 3fl, 5fl, 0fl, 0CR, 31/ 7fl, 32 

DB 0FB, 39, 49, 0B, 7B, 20, 68/18 

DB 0DC, 10, 53, 50, 63, 61, 68, 71 

DB 74/ 3fl, 0CR, 70, 39/ 70, 69, 72 

DB 79, IB, 52, 4B, 54, 0DB, 00, 68 

DB 70, 79/ 7R, 73/ 6B, 50/ 49, 4fl 

DB • 8DC, 3B, 0F2 

TB4: DB 3B, 69, 59, 8CB, 39, 6B, 5B, 009 

DB 11, 73, 24, 60, 31, 0D3, 20, 64 

DB 32, 0D2,12/ 001/ 20/ 0E4, 0fl, 0CR 

DB 0FC 

TBS: DB 70, 34, 54, 4B, 49/ 50/ 70, 79 

DB 7B, 0F4, 29/ 7B, BOB, 30, 79, 7B 

DB 74, 60, 48, 000/ 30, 79/ 7B, 74 

DB 60, 63, 50/ 54, 4B, 49, 0D0, OB 

DB 7B, 58, 0DC, 10/ 49, 4B, 54, 50 

DB 63, 60, 78, 0FC, 34, 7B, 79/ 70 

DB 50, 49, 4B, 54, 50/ 63/ 61/ 8D8 

DB 70,0F8 

TB6: DB 9, 50, 58, 61, 63, 60, 74, 7B 

DB 79, 70, 68, 61/ 63, 50/ 54, 4B 

DB 009,10/ 49/ 4B, 54, 74, 7B, 79 

DB 70, 68, 61, 63, 0EC, 1R, 5fi, 2R 

DB 0ER, 1/ 52, 22, 0E2, 33, 61, ©D3 

DB 28, 60/18, 0DC, 31, 63, 0D1, 30 

DB 79, 78/ 74, 60, 5R, 52, 0R, 0CR 

TB7: DB 68, 71, 73, 60/ 54, 4B, 4R, 51 

DB 61/ 6R, 63/ 8CB, 7R, 40, 21/ 0E3 

DB 78, 7B, 74, 60/ 63, 60/ 63, 50 

DB 54, 4B, 008, 34, 7B, 79, 70, 50 

DB 49, 4B, 0D4, 78/ 7B, 74/ 54, 4B 

DB 008, 30, 78, 48, 40/ 20/ 0E2, 78 

DB 70, 20, 0E2, 34, 7B, 79, 70, 50 

DB 49, 4B, 54, 50, 0DR 

TB8: DB ' 78, 30/ 40/ 20/ 0E4, 9/ 46, 4fl 

DB 7fi, 79, 0FB, 10/ 49/ 4B, 54, 0FC 

DB 78, 30, 60, 0CC, 38, 48/ 0CC, 78 

DB 62, 70, 0CC, 78, 40, 0FC, 9, 50 

DB 70/ 79, 7B, 74/ 54, 4B, 009 

TB9: DB 78/ 7B, 74, 60, 63, 0E0, 9, 50 

DB 70, 79, 7B, 74, 54, 48, 49, 1R 

DB 0CC, 78, 7B, 74, 60, 63, 6©, ©CC 

DB 10, 49, 4B, 54, 50, 63, 61, 68 

DB 70, 79, 7B, 0F4, 38, 70, 3R, 0CR 

DB 38, 50, 49, 4B, 54, 0FC, 38/ 4R 

DB 0FC, 38, 49, 6R, 46, 0FC ’ 

TB10: DB 70, 38/ 800/ 38, 62/ 70/ 22/ 0CR 

DB 38, 70, 48, ©OC, 3B, 79/ 49/ 0CB 

DB 38, 0CC, 39, 7B, 4B, 009/ 31/ 7fl 

DB 0F3, 0, 004 

TB11: DB 39, 0F2, 29, 6B, 64, 54, 4B, 49 

DB 50, 59, 5B, 54, 000, 78, 28/ 6B 


DB 64, 54, 4B, 008, 20/ 69, 60/ 50 

DB 49, 0CC, 30, 40, 49, 50, 60, 69 

DB ' 0EC, 18, 50, 64, 66, 69, 60, 50 

DB 49, 0CC, 0R, 72, 7B, 70/ 21/ 0E3 

DB 0/ 43, 40, 60, 69, 60/ 58, 51 

DB 0D4 

TB12: DB 78, 28, 6B, 64, 000, 9/ 48, 4fl 

DB 6fl, 69, 3R, 0FR, 1, 42, 4B, 6B 

DB 6fl, 3B, 0FB, 78, 20, 58/ 000/ 9 

DB 4B, 4A, 7fi, 0F9, 68, 60/ 69, 62 

DB 4R, 22, 6B, 64, ©CC, 68, 68, 69 

DB 6B, 64, ©CO, 09, 50, 60, 69, 6B 

DB 64, 54, 4B, 009 

TB13: DB 0/ 68, 6B, 64, 50, 53, 0D0, 4 

DB 60, 69, 60, 58, 51, 0D4, 9, 69 

DB 61, 6fl, 68, 0E4, 4B, 54, 5B, 59 

SB 60, 69, 0EC, 00, 4B, 52, 7R, 29 

DB 0EB, 28, 50, 49, 46, 54, 0EC, 28 

DB 4R, ©EC, 28, 49, 62, 4B, ©EC 

TB14: DB 60, 28, 0CC, 0, 43, 40, 60, 28 

. DB 58, 51, 0D4, 28, 60, 48, ©CC, 0B 

DB 52, 5fl, 61/ 6fl/ 72, 0FB, 8R, ©FA 

DB 9/ 52, 5fl, 63, 6fl, 72, 0F9, 20 

DB 69, 5B, 0E4, 39/ 7B, 6B, 69, 79/ 80 

TB15: DB 32/ ©FB/ 26/ 71, ?A, 73/ 0ER, 39 

DB 72, 0FB, 31, 7fl, 0F3, 39, 79/ 3B 

DB 0FB 

. DEPHRSE 


..PHASE RAM -folok promennych 


P160 

DS 

2 


SIXX 

DS 

2 

;y©likos.t pisrna XX 

SIXV 

DS 

2 

>oelikost pisma XV 

SIVX 

DS 

2 

;oelikost pis ma VX 

SIVV 

DS 

2 

;yelikost pi sms. VV 

STPX 

DS 

2 

; okamzita poloha per a. X 

STPV 

DS 

2 

;okamzita poloha pera V 

NOPX 

DS 

2 

; poloha pristiho tisku zn. X 

NOPV 

DS 

2 

i poloha pristiho tisku zn. V 

NRRW 

DS 

1 

i druh mezer mezi znaky 

RSCD 

DS 

1 

;rezim diakriticky/RSCII 

BS: 

DS 

1 


coun; 

l\ DS 

1 

-citac znaku pri f. WRITE 

SPEN 

DS 

1 

jokamzity stay pera 

SHOT 

DS 

1 

, stay krokoyych motorku 

PREX 

DS 

2 

-sour, predchoziho tisku X 

PREV 

DS 

2 

.-..-V 

\ 

SPED' 

DS 

1 

;aktualni rychlost posuuu 

RCCE 

DS 

1 

j zrychlouani pri rozbehu 

DIRE 

DS 

1 

> sriier do os V a X 

DIR1 

DS 

1 


DIFF 

DS 

2 

-rozdil sour, zadane a skut. 

P182 

DS 

1 


P183 

DS 

1 


P184 

DS 

1 


P185 

DS 

2 


RKLI 

DS 

1 


PSLI 

DS 

1 


TPLI 

DS 

1 


REZI 

DS 

1 

j rezim textooy/grat'icky 

COLR 

DS 

1 

i aktualni barua 

SPD: 

DS 

1 


RTLI 

DS 

1 


SKUTX: DS 

2 

-poloha 0 od poc. papiru y X 

PPORG: DS 

1 

/druh funkce dorazu 

VOLB 

: DS 

1 





; promenne pro rizeni zyuk. 




- generatoru 

KM IT 

DS 

1 

; kmitocet piskani 

KL0P1: DS 

2 

; f&omoc ne 

CKL01: DS 

1 

) promenne 

KL0P2: DS 

2 

) pro generator 

KLOPR: DS 

2 

;delka pauzy mezi pisk. 

KLOPB: DS 

2 

;delka pauzy mezi cykly 

CKLO 

DS 

1 

jpocet piskhuti 

KLM: 

DS 

1 

;stay reproduktorku 

SIZE 

DS 

1 

jyelikost znaku pro GPRINT 

UKRR 

DS 

1 

> ukazatel radek 

UKZR 

DS 

1 

;ukazatel znaku 

STWP 

DS 

1 


PUVE 

DS 

1 


PUXX 

DS 

2 












PRST: 

PS 

1 

; pocs-t r-Ade-k na. s trank u 

PZRfl: 

PS 

1 

)pocet znaku na radek 

PLNB: 

PS 

1 


POMB: 

PS , 

1 


PITCH: 

PS 

2 

)roztec dilku na osV 

REPE: 

PS 

1 

> pocet dilku na ose 

PRECH: 

PS 

1 

;cist z toufferu nebo z BUFINT 

BUFINT: 

PS 

1 

; K'omoc ne nrodlouzeni bufferu 


KRQ25: 

PS 

1 

i krok 0. 125 nebo 0. 25 

PRZ: 

PS 

1 


CK: 

PB 

© 

; pomocne promenne pro rizeni 

CW: 

PB 

, 0 

) ukazooat-ka but'feru 

ZW: 

PB 

0 


BUFF: 

PS 

OFF 

i ulastni buffer 1/4 kbyte 


PS 

1 


CGR: 

PS 

IFF 



PS 

20 

> pros tor pro stack 

STRCK: 

ENP 

0 
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Manual pro plotter - tiskarnu 

s_-___— > 


Format prikazu 

Je 5 typu formatu prikazu, jak je popsano 

dale. 

1. Prikaz skladajici se pouze z jednoho zna- 
ku (bez dalsi specifikace) (A, H, I). 

2. Prikaz, skladaji'ci se ze znaku a jednoho 
dalsiho parametru (L, C, S, Q). 

3. Prikaz, skladajici se ze znaku a dvou 
parametru. se pouziva k oddeleni pa¬ 
rametru a kod CR na zakonceni souboru 
parametru. 

4. Prikaz plus znakovy retezec (P). 

5. Prikaz skladajici se ze znaku a tri dalsich 
parametru (X). 

se pouziva k oddeleni parametru. 


' Zadani parametru 

1. Mezery, predrazene parametru jsou igno- 
rovany. 

2. Kazde cislo, kteremu je predrazeno zna- 
menko je povazovano za zaporne. 

3. Kazdy parametr je zakoncen nebo 
kodem CR. Jestlize jako specifikaci para¬ 
metru zadame jiny znak, nez cislo, vsech- 
ny znaky nasledujici tento znak jsou igno- 
rovany. 


Zkracene formaty zadani 

1. Libovolny jednoznakovy prikaz muze byt 
nasledovan prikazem bez toho, abychom 
jej museli oddelovat kodem CR. Napr. 
„HD100,200“ CR ma stejnou hodnotu 
jako „H“ CR ,,D100,200“ CR. 

2. Libovolny dvouznakovy prikaz (znak r pa¬ 
rametr) muze byt nasledovan libovolnym 
prikazem, musi vsak byt oddeleny 
Napr. „L0,S1 ,Q0,C1 D100,200“ CR je 
platny vyraz. 

Zmeny hodnot vnitfnich 
promennych pri zmene rezimu 

Pri prechodu z grafickeho do textoveho 
rezimu dochazi ke zmenam hodnot vnitrnich 
promennych: 

> Souradnice X a Y. 

Y-ova souradnice je nastavena na 0 a za- 
catek je prirazen leve strane plochy, na 
kterou je mozno psat. 

> Smer tisku znaku. 

Parametr Q je nastaven na 0. 

> Velikost znaku 

stupen velikosti znaku je nastaven na 1 
(80 zn. na radek). 

> Typ cary. 

Druh cary je nastaven na 0 (plna cara). 


Velikost znaku 

> Po zapnuti tiskarny je velikost znaku au- 
tomaticky nastavena na stupen 1 (80 
znaku na radek). Stupen velikosti je moz¬ 
no pozdeji menit kontrolnimi kody a prika- 
zy. 

> V grafickem rezimu je mozno menit veli¬ 
kost pisma v rozsahu 0 az 63. 

> Pri prepnuti z grafickeho do textoveho 
rezimu je nastaven stupen velikosti znaku 
na 1. 


Prikazy grafickeho rezimu 

Pocitac ridi tiskarnu v grafickem rezimu 
nasledujicimi prikazy. Slova uvedena v za- 
vorkach, jsou prikazy v.jazyce SHARP 
BASIC, ktere maji stejnou funkci. 

Nazev prikazu _ Format a funkce _ 

Druh cary Lp (p=0 az 15) 

Urcuje druh cary (plna nebo 
teckovana) a roztec tecek. p=0 
plati pro plnou earn, p=1 az 
p=15 pro ruzne teckovane 
_dary._. 


Zakladni poloha 

H 

(PHOME) 

Zdvihne pero a vrati jej do za¬ 
kladni polohy. 

Inicializuj 
zakladni polohu 

(HSET) 

1 

Nastavi soucasnou polohu 
pera jako zakladni (x=0 
a y=0). 

Kresli 

Dx,y (-9999<=x,y<=9999) 

(LINE) 

Kresli caru ze soucasne polohy 
pera do bodu x, y. 

Kresli 

Jx,y (-9999<=x,y<=9999) 

(RUNE) 

To same jako predchozi prikaz, 
ale kresli do bodu urceneho 
relativnimi souradnicemi x, y. 

Presun 

Mx,y (-9999<=x,y<=9999) 

(MOVE) 

Zdvihne pero a presune jej do 
bodu urceneho souradnice- 


mi x, y. 

Presun 

Rx,y (-9999<=x,y<=9999) 

(RMQVE) 

To same jako predchozi prikaz, 
ale do bodu urceneho relativni¬ 
mi souradnicemi x, y. 


Bod 

Yx,y (-9999<=x,y<=9999) 
Zdvihne pero a pfemisti jej do 
bodu x,y a nakresli bod. 

Bod 

Wx,y (-9999<=x,y<=9999) 
Totez jako predchozi povel, ale- 
bod udela na miste urcenem 
relativnimi souradnicemi x, y, 

Zmena barvy 

(PCOLOR) 

Cn (n=0azn=3) 

Zmeni barvu pera podle cisla n. 

n=0 ... cerna 

n=1 ... modra 

n=2... zelena 

n=3... cervena 

Nastav stupen 

Sn (n=0 az 63) 

Urcuje stupen velikosti znaku. 

Otoe znak 

Qn (n=0az3) 

Urcuje smer kterym se pisi zna- 
ky. 

Tiskni 

Pc1c2c3c4... cn 

Tiskne znaky cl, c2 az cn 

Osa 

Xp,q,r (p=0 nebo 1; 

q=—999 az 999, r=1 az 255) 


Je-lip=1 kresli X-ovou osu, je-li 
p=0 kresli osu Y-ovou, q urcuje 
roztec znacek na ose a r jejich 
pocet. 


Nastav velikost Zxx,xy,yx,yy 

Obdoba prikazu Sn +.Qn, ale 
poskytuje znacne vetsi moz- 
nosti. Nastavi smer, sklon a ve¬ 
likost pisma. 



XX.strka pisma v i/2 | mm |, 

XY.odklon od x-ove osy v 1/2 ] mm 

YX.odklon od y-ove osy v | mm |, 

YY.vyska pisma v | mm |. 


Nekolik prikladu volby tisku prikazem ,Z‘: 


XX,XY,YX,YY 

tvar 

vyska 

sffka 

fadka 

1,0,0,1 

kolmy 

1 mm 

0.5 mm 

vodorovne 

4,0.0,7 

stihly kolmy 

7 mm 

2 mm 

vodorovne 

4,0,1,4 

sklonen vpravo 

4 mm 

2 mm 

vodorovne 

0,6.—4.0 

sirs!, kolmy 

4 mm 

3 mm 

svisle vzhuru 

4.4,-4.4 

koimy 

5.7 mm 

2,3 mm 

sikmo vzhuru 


Nastav rychlost Tn (n=-10az30) 

Nastavi rychlost tisku, n=—10 
je nejvetsi a n=30 nejmensi 
_ rychlost. _ 

Nastav krok Fn (n=0 nebo 1) 

Nastavi krok 0.125 mm pro 














n=0 nebo 0.25 mm pro n=1. 
Pri kroku 0.125 mm se nastavi 
stupen rychlosti na 0 a pri kroku • 
0.25 mm je nastavovan stupen 
16, coz je treba vzit v uvahu pri 
nastavovani rychlosti prikazem 

_X_ 

Nastav Bn (n=0 nebo 1) 

diakriticky rezim 

Nastavi diakriticky rezim pri 
n=0. Je-li n=1 nastavi rezim 
ASCII. Pri tisku diakritickych 
znamenek nedochazi k presu- 
nu na tisk nasledujiciho znaku, 
ale dalsi znak se pise pod zna- 
menko. 

Tabulka odpovidajicich znaku: 

ASCII rezim diakr. rezim 
-{ 5Bh carka 

| 5Ch krouzek 

} 5Dh hacek 

Nadefinuj vlastnf En,c1c2c3.. c32 (n=1 az 15) 
znak 

Za znakem „E“ nasleduje 
cislo znaku n z rozsahu 1 az 
15 a pote nasleduji kody 
podle tabulky uvedene v pri- 
loze tohoto manualu. Muze 
jich byt maximalne 32, je-li 
jich mene, musi koncit na- 
stavenym 8.bitem. 

Pro definici takoveho znaku je nejprve nutne 
nakreslit zakladni tvar (slozeny z usecek) do 
rastru 5x8 bodu, jednotlivym vrcholum (tj. kon- 
cum usecek) priradit cisla A1 ,A2,... ,AN Tab. 2. 

Horni cisla znamenaji posun s pisatkem naho- 
re, dolni posun s pisatkem dole. Posledni clen 
-ietezce, ktery zajisti zvednuti pisatka a navaznost 
pro psani dalsich znaku, musi mit 8.bit nastaven 
na 1 (tj. 80H). Dale Ize je§te ukoncovaci clen (80H 
sloucit s poslednim vrcholem kreslene usecky (tj. 
(An+80H)). 


Tabulka 2. 


dec hex 



56 

38 

57 

39 

58 

3A 

59 

3B 

60 

3C 


120 78 

121 79 

122 7A 

123 7B 

124 7C 


48 

30 

49 

31 

50 

32 

51 

33 /- 

52 

34 


112 70 

113 71 

114 72 

115 73 

116 74 


40 

28 

41 

29 

42 

2A 

43 

2B 

44 

2C 


104 68 

105 69 

106 6A 

107 6B 

108 6C 


32 

20 

33 

21 

34 

22 

35 

23 

36 

24 


96 

60 

97 

61 

98 

62 

99 

63 

100 64 


24 

18 

25 

19 

26 

1A 

27 

IB 

28 

1C 


88 

58 

89 

59 

90 

5A 

91 

5B 

92 

5C 


16 

10 

17 

11 

18 

“ J 

19 

13 

20 

14 


80 

50 

81 

51 

82 

1 

1 M 
in 

83 

53 

84 

54 


8 

8 

9 

9 

10 

OA 

11 

OB 

12 

OC 


72 

48 

73 

49 

74 

4A 

75 

4B 

76 

4C 


0 

0 

1 

1 

2 

2 

3 

3 

4 

4 


64 

40 

65 

41 

66 

42 

67 

43 

68 

44 


Pfiklad vytvoreni znaku „A“: 

PRINT/P “ElCHR$($08,$7A,$4C,$21 ,$E3) 

Vytiskni Gn (n=1 az 15) 

nadefinovany znak 

Vytiskne drive nadefinovany 
znak cisla n z rozsahu 1 az 15. 


Kontrolm kody pouzfvane 
v textovem rezimu 

Vsechny kody plati pri prepinaci ASCII/ 
/MZ800 nastavenem do polohy ASCII. 


Textovy kdd($ 01). 

Prepina tiskarnu do textoveho rezimu. 

Grafickykod ($02). (Jako prikaz PMODE 
v jazyku Basic) 

Prepina tiskarnu do grafickeho rezimu. 

tfadefrzpef ($03). (Jako pfikazPSKIPvja- 
zyku Basic) 

Posune papir o 1 radku zpet. Obsah 
citace se pritom zmensi o 1. Stoji-li pero 
na zacatku nove stranky, neprovadi nic. 

Zkouska per ($04). (Jako prikaz PTEST 
v jazyku Basic) 

Nejprve vytiskne nasledujici text, potom 
nastavi rozmer tisku 1 (80 znaku na ra- 
dek). 


* * * MZ-821 * * * 

Tisk preddefinovaneho znaku 

($05) + (ASCI 1)2 +(ASCI I) 1 + (SOD). 
Vytiskne predefinovany znak cisla sloze- 
nehoz (ASCII)2 a (ASCII)I z rozsahu 1 az' 
15. 

Zmenseny tisk ($09)+(S09) + ($09). 
Zmensuje tisk ze stupne 1 na stupen 
0 (120 zn. na radek). 

Zruseni zmenseneho tisku 

($09)+ ($09)+ ($08). 

Zvetsuje tisk ze stupne 0 na stupen 1 (80 
zn. na radek). 

Nastaveni citace radek. (Jako prikaz 
PAGE v jazyku BASIC). 

($09) + ($09) + (ASCII)2+(ASCII)1 + (AS- 
Cll)0+($0D) 

Urcuje pocet radek na stranku tribajtovym 
kontrolnim kodem ASCII. Nejvetsi pocet 
je 255. Po zapnuti nebo resetovani syste- 
mu je citac radek nastaven na hodnotu 
66 . 

Radek vpred ($0A). (Jako prikaz PSKIP 
v jazyku BASIC). 

Posune papir o jeden radek vpred. Obsah 
citace radku se zvetsi o 1. 

Zvetseny tisk (SOB). 

Zvetsuje tisk ze stupne 1 na stupen 2 (40 
zn. za radek). 

Zruseni zvetseneho tisku ($07). 
Zmensuje tisk ze stupne 2 na stupen 1 (80 
zn. na radek). 

Navrat voziku (SOD). 

Presune vozik (pisatko) do leve krajni 
polohy. 

Krok zpet ($08). 

Presune vozik o jednu pozici zpet. Je-li 
v leve krajni poloze, kod nema zadnou 
funkci. 


Nova strana ($0C). 

Prikaz presune papir na zacatek' dalsi" 
strany a zaroven vynuluje ditac radek. 

Nasledujici barva ($1D). 

Zmeni barvu pera na nasledujici podle 
tabulky uvedene vyse. 

Pri vyse uvedenem prepinaci nastavenem 
do polohy MZ800 plati kody podle nasleduji¬ 
ci tabulky: 

Nova strana $0F 

Zpetnykrok SOE 

Zruseni zvetseneho tisku SOC 


Automaticky test 


Tiskama umi 2 druhy testu. Prvni se 
spousti ridicim kodem ($04), nebo tlacitkem 
TEST na ovladacim panelu. Druhy spustime 
stiskem tlacitka TEST a soucasnym zapnu- 
tim tiskarny. 


Ovladaci prvky 
na celm stene tiskarny 


Tlaci'tko STOP -slouzi k pozastaveni 

prace plotteru,tiskama 
vydava ton a ceka na 
stisk tlacitka READY. 

Tlacitko TEST -provede to same jako 

fidici kod $04, tedy 
test tiskarny. 

Tlaci'tko READY -pri jakemkoli zvuko- 
vem signalu potvrzuje 
timto tlacitkem uzivatel 
provadenou operaci. 

Prepmac PEN/NOT -slouzi k invertovani 
okamziteho stavu 
pera, provadi se tech- 
nicky nezavisle na cin- 
nosti plotteru. 


Prepmac 

ASCII/MZ800 


Prepmac 

COLOR/NO 


Dioda RDY 


-urcuje maji-li se zna- 
ky prepocitavat (rezim 
MZ800)’Ci ne. 

-pri prichodu instrukce 
pro zmenu barvy a na¬ 
stavenem prepinaci do 
polohy COLOR vydava 
piskani odpovidajici 
pozadovane barve 
a ceka na stisk tlacitka 
READY. 

-sviterri urcuje cekani 
na stisk tlacitka REA¬ 
DY. 


Dioda PWR -signalizuje zapnuti 

plotteru. 

Dioda BUF -signalizuje vycitani 

z bufferu, nebo sviti-li 
trvale, urcuje prazdny 
buffer. 


Systemove prepmace 
na zadni stene 


Prepmac CR/CR+LF 

Prepmac LF/LF+CR 

Prepmac A4/ROLE 
Prepmac RDP/RDP 

Prepmac RDA/RDA 


-v poloze CR + LF 
pri prichodu kodu 
CR provede i kod LF. 
-v poloze LF+CR 
pri prichodu kodu LF 
provede i kod CR. 
-urcuje format papi- 
ru. 

-urcuje polaritu sig¬ 
nalu RDP (hardwe- 
r QA*e)- 

-urcuje polaritu sig¬ 
nalu RDA (hardwe- 
rove). 


i 
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Ing. Petr Kandera, Krasnoarmejcu 2, 704 00 Ostrava 3 

EMU89 je program pro emulaci terminalu CM7202 a CM7209 na pocitaci typu IBM PC pod operacnim 
systemem MS-DOS. IBM PC se pripojuje jako terminal po seriove lince (RS232C, proudova smycka). 


Po spusteni EMU89 se zobrazi hlavni 
menu: 

1. Emulace terminalu CM7202. 

2. Emulace terminalu CM7209. 

3. Zmena parametru prenosu. 

Volit z techto moznosti Ize pomoci sipek 
a klavesy ENTER nebo prirno cislem volby. 
Krome techto moznosti je mozne zobrazit 
popis funkbnich klaves pro oba typy emulo- 
vanych terminalu stiskem klavesy K. Pokud 
do asi 5 sekund nestiskneme zadnou kl&ve- 
su, dutomaticky se nastartuje ,,vysvicena“ 
volba. (Pozn.: basovy udaj plati pro CPU 
8088 a takt 9,54 MHz). 

Pro svou cinnost vyzaduje EMU89 v adre- 
safi, ze ktereho byl spubtbn, konfiguracni 
soubor EMU89.CFG, ve kterem ma ulozeny 
parametry prenosu (bislo serioveho portu, 
prenosovou rychlost, pocet datovych bitu, 
pocet stop bitu, typ parity), bislo volby, ktera 
se po spustbni automaticky aktivuje, a ozna- 
beni diskove jednotky, na ktere bude hiedan 
systemovy soubor COMMAND.COM pri pra- 
ci s operacnim systemem v emulatoru. 

Vbechny parametry, s vyjimkou posledni- 
ho, ma uzivatel moznost menit volbou z pull- 
-down menu. Posledni parametr se pri insta- 
laci vzdy nastavi na C (harddisk). Konfigu¬ 
racni soubor Ize menit take libovolnym texto- 
vym editorem. 

Pokud v okamziku startu neexistoval kon¬ 
figuracni soubor EMU89.CFG, automaticky 
bude nastartovana volba 3 (Zmena paramet¬ 
ru prenosu) a hlavni menu bude zobrazeno 
az po vytvoreni konfigurabniho souboru. 

Program se ukoncuje z hlavniho menu 
pomoci CTRL-A. 


Zmena parametru prenosu 

Parametry se meni vybbrem z menu po¬ 
moci sipek a klavesy Enter, jak je vysvetleno 
v dolni casti obrazovky. Klavesa Esc zpuso- 
buje vzdy navrat o krok zpet beze zmeny 
hodnoty. Zmenu parametru Ize ukoncit stis¬ 
kem Esc, pak se zmeny neulozi a plati pou- 
ze do ukonceni programu, nebo stiskem 
CTRL-A - zmeny budou navic ulozeny do 
souboru. Pokud vsak pred spustenim ne¬ 
existoval konfigurabni soubor, i ukonceni 
zmen parametru stiskem Esc zpusobi uloze- 
ni parametru. 


Emulace 

Pri emulaci se chova PC jako zvoleny typ 
terminalu s temito funkbnimi klavesami: 

F3 Lokalni vymaz obrazovky. 

F4 Popis funkcnich klaves (Help). 

Tato funkce odpovida stisku kla¬ 
vesy K v hlavnim menu. 

F9 Zmena parametru preno- 


su. Tato funkce je ekvivalentni 
volbe 3 v hlavnim menu. 

F10 Odskok do prostredi MS- 
DOS. Navrat zp§t je mozny zada- 
nim sekvence EXIT. Pokud nebu- 
de nalezen COMMAND.COM na 
zvolenem disku, dojde po chybo- 
vbm hlaseni k navratu do emula¬ 
ce. 

CTRL-A Ukonceni emulace a navrat do 
hlavniho menu. 

Enter CR - ,,Navrat vozu“ (znak 13D). 

End LF - skok na novy radek (znak 

10D). 

Delete Delete - vymaz znaku. 

Back 

space Back space (znak 08D). 

Pro emul&tor CM 7202 dale plati: 

FI EOL - Vymaz radku od kurzoru 

doprava. 

F2 EOS - Vymaz obrazovky od kur¬ 
zoru dolil. 

Home Home - Presun kurzoru do leveho 
horniho rohu obrazovky. 

'{Pozn .. tyto funkcni klavesy maji pri emulaci 
CM7209 stejny vyznam jako neoznabene tri 
klavesy terminalu.) 

Zbyvajici klavesy PC maji stejny vyznam 
jako klavesy terminalu nebo nemaji Mdnou 
funkci. 


Naroky na technicke vybavenf 

Program EMU89 je urcen pro pocitace 
standardu IBM PC, pracujici pod operacnim 
systemem MS-DOS. Program byl zkousen 
na pocitabich Commodore PC20-III, PP06, 
Leonard AT, IBM PC-XT a IBM PS/2-30 
s operacnimi systemy MS-DOS V3.20, 
V3.21, V3.30 a PPDOS V3.0. Vyzaduje gra- 
fickou kartu CGA nebo EGA (pro kartu Her¬ 
cules staci upravit atributy Text color z Text 
Background); v .EXE forme je dlouhy 22784 
bajtu a v pameti zabira asi 45 kB. Pocitac 
musi byt vybaven standardnim seriovym 
portem C0M1 nebo COM2. 

Strucny popis programu 

Program je napsan v jazyce TURBO-PAS¬ 
CAL V4.0 (delka zdrojoveho programu je 
520 radku). 

Program EMU89 se sklada ze btyr z^klad- 
nich basti: * 

1. pomocne globalni procedury a funkce, 

2. vlastni emulace, 

3. procedury a funkce pro zmenu parametru, 

4. hlavni program. 

Hlavni program zajibfuje tvorbu hlavniho 
menu a provadbni zakiadnich operaci.s nim. 


Pouziva mimo jine proceduru Keys pro zo- 
brazeni popisu funkbnich klaves (Help). 

Zmenu parametru vyberem z pull-down 
menu a vytvareni konfiguracniho souboru 
ma na starosti procedura 


Init, 

hlavni procedura zmeny parametru. Provadi 
vypis nastavenych hodnot, volbu parametru 
atd. Vyuziva procedury: Default (zobrazeni 
nastavenych hodnot), Save (uklad&ni para¬ 
metru do souboru), Mainwindow (okno pro 
zmenu parametru), Pspdf a Speed (volby 
jednotlivych parametru). D6le pouziv£ pro¬ 
cedury spolecne i pro hlavni program: Bot¬ 
tom (napovbda) a Arrows (pohyb kurzoru). 


Emulace vyuziva tri hlavnich procedur: 

Emulace - Nastaveni parametru a volba 
typu emul&toru, 

Emul - emulace CM7202, 

Emu2 - emulace CM7209 I 


a dalsi pomocne procedury a funkce. Zjed- 
nodubene Ize popsat jeji binnost nbsledov- 
ne: 

Pri spusteni emulace se nastavi paramet¬ 
ry serioveho portu a vektor preruseni. Pferu- 
seni pri prijmu znaku na seriovy port je 
obsluhovano procedurou Readcom, kterb 
uklada znaky do pole, ze ktereho jsou po 
zpracovani znaky zobrazeny na obrazovce. 
Mezitim se soustavne testuje klavesnice 
- bezne znaky jsou vysilany prirno na port, 
funkcni klavesy provadeji popisne funkce. 
Na obrazovce se zobrazuji pouze znaky 
pfichazejici na seriovy port. 

Pomocne globalni procedury a funkce za- 
jistuji mimo jine vystup znaku na port (Out- 
Char), uschovu a obnoveni obrazovky (Sa- 
veScreen, LoadScreen), odskok do MS- 
DOSu (Branch), inicializaci portu (Initcom), 
povoleni a zabiokov^ni preruseni (Siolnt On, 
Siolnt Off), vymaz obrazovky od kurzoru 
dolu a doprava (ClrEos), prebteni znaku 
z pole s informaci, zda se jedna o novy znak 
(Inbyte), zobrazeni popisu funkbnich klaves, 
zmenu parametru prenosu (Initid) apod. 

Program Ize snadno prizpusobit individu- 
alnim pozadavkum a vytvofit v nbm vtastni 
specialni funkce, napr. hardcopy obrazovky, 
nebo priradit dalsim funkbnim klavesam 
nove funkce. 

Prace s emulbtorem je jednoduch^t a po- 
hodlna, zvlaste kdyz uv^zime, ze pri praci 
s nim Ize vyuzit celou bk^lu programu pri- 
stupnych pod MS-DOSem - v emulatoru Ize 
provest odskok do MS-DOSu, pak v nbm 
libovolnb dlouho pracovat a kdykoliv se vr&tit 
zpet do emulatoru. 



{Emulator terminalu CM7202/CM7208} 
{ na IBM PC } 
{ Verze 3.4 } 
{ (c) 1989 - PKSoft } 


program EMU89; 

{$K-U-C-} 

{$M 20000,0,4000} 
uses Crt,Dos; 
label 5; 
const 

sp=' ';comul=$3F8;comu2=$2F8; 

E0I:byte=$20;BuffTop=10000; 
terl='C M 7 2 0 2';ter2='C M 7 2 0 9'; 
IntContr:integer=$20;q=#219;u=#220; 
IRQ_Mask:integer=$21;h=#223; 
type 

strarr=array[l..8] of string[30]; 
var 

f:text; j :string[30];newbyte:boolean; 
term:string[12];r,z,v:string[2]; 
keyout,c,drv:char;ScrSeg:word; 
p,x,d,b,s,t,m,e:strarr^ 

Byteln,Comint,xx,yy,zac:byte; 
altcom,exitsave,screen:pointer; 

Inbuff:array[0..BuffTop] of byte; 
com,comnr,bd,db,sb,par,yl,yk:word; 

Origmode,Inpoint,Outpoint,i:word; 

procedure ReadCom; 

Interrupt; 
begin inc(Inpoint); 

if(Inpoint>Bufftop) then Inpoint:=0; 
Inbuff[Inpoint]:=port[com]; 
port[IntContr]:=E0I; 
end; 


procedure ClrEos; 
var i:byte; 

begin ClrEoljxx:=wherex;yy:=wherey; 
for i:=yy+l to 24 do begin 
gotoxytl,i);ClrEol;end; 
gotoxy(xx,yy); 
end; 

procedure Title; 

begin Textbackground(0); 

window(l,l,80,25);clrscr; 

Textcolor(O);Textbackground(7); 

Insline;gotoxy(16,1);writeIn 
('EMULACE TERMINALU 
term);Textcolor(14);Textbackground(0); 
window(1,2,80,25); 
end; 

{$F+}procedure Myexit {F—}; 

begin Textmode(Origmode);SioInt_off; 

Byteln:=port[com];ExitProc:=Exitsave; 
setintvec(comint,altCom); 
end; 

procedure SaveScreen; 

begin if (Lo(LastMode)=7) then 

ScrSeg: =$B000 else ScrSeg: =$B800 ( ; 
Move(Ptr< ScrSeg,0)",Screen",4000); 
end; 

procedure LoadScreen; 

begin if (Lo(LastMode)=7) then 

ScrSeg:=$B000 else ScrSeg:=$B800; 
Move(Screen",Ptr(ScrSeg,0)",4000); 
end; 

procedure Init(u:byte);forward; 
procedure Keys;forward; 


function Inbyte(var pb:boolean):byte; 
begin pb:=(0utpointolnpoint); 
if pb then begin inc(Outpoint); 
if Outpoint>BuffTop then Outpoint:=0; 
InByte:=InBuff[Outpoint];end; 

end; 

procedure OutChar(z:char); 

begin while(port[com+5] and $20 =0) do; 

port[com]:=byte(z); 
end; 

procedure SioInt_off; 
begin 

Port[IRQ_Mask]:=(Port[IRQ_Mask] or $18); 
end; 


procedure SioInt_on; 
begin 

Port[IRQ_Mask]:= 

(Port[IRQ_Mask] 


end; 


and $E7); 


procedure Initcom(comport:integer; 

baud:real;data,stop,parit:byte); 
var divisor:integer;local:byte; 
begin divisor:=round(115200.0/baud); 
port[comport+3]:=$80; 
port[comport]:= lo(divisor); 
port[comport+1]:=hi(divisor); 
local:=0;case data of 6:local:=3; 

7:local:=2;8:local:=1;end; 
if stop=2 then local:=loca\ or 4; 
case parit of 2:local:=local or $18; 

1:local:=local or $08;end; 
port[comport+3]:=local; 

port[comport+1]:=l;port[comport+4]:=$0B; 
local:=port[comport]; 
end; 


procedure Initia(u:byte); 
begin GetMem(Screen,4000);xx:=wherex; 
yy:=wherey;SaveScreen; 
if u=0 then Init(l) 

else Keys;LoadScreen; 

FreeMem(Screen,4000);Textcolor(14); 
Textbackground(0);window(1,2,80,25); 
gotoxy(xx,yy); 
end; 

procedure Branch; 

begin GetMemCScreen,4000);xx:=wherex; 
yy:=wherey;SaveScreen; 

Textbackground(blue);window(1,1,80,25); 
clrscr;writeln('Navrat do emulatoru', 

' -> <EXIT>'); 

j:=drv+':\C0MMAND.COM';Exec( j ,''); 
if DosErroroO then begin writeln(#10, 
'Nenalezen soubor COMMAND.COM'); 
write(#7);Delay(2000);end; 
Initcom(com,bd,db,sb,par); 

SetIntvec(Comint,@readcom); 
SioInt_on;LoadScreen;, 

FreeMem(Screen,4000);Textcolor(14); 
Textbackground(0);window(1,2,80,25); 
gotoxy(xx.yy); 
end; 


procedure Emul; 
label 10; 

begin while (keyouto#l) do begin 
Byteln:=InByte(newbyte); 

Byteln:=(ByteIn and $7F); 
if newbyte then begin 
if i=2 then begin 

xx:=ByteIn-31;gotoxy(xx,yy); 
i:=0;goto 10;end; 
if i=l then begin 


yy:=ByteIn-31;Inc(i>; 
goto 10;end; 

case Byteln of 0:;7:write(#7); 
8:gotoxy(wherex-l,wherey); 

9:gotoxy(wherex+ 

(8-(wherex mod 8)),wherey); 

11:gotoxy(wherex,wherey+1); 

24:gotoxy(wherex+1,wherey); 

26:gotoxy(wherex,wherey-1); 

27:Inc(i);29:gotoxy(1,1);30:ClrEol; 

31:ClrEos;else write(char(Byteln)); 
end;end; 

10:if keypressed then begin 

keyout:=readkey; 

if not (keyout=#l) then begin 

if keyout=#0 then begin keyout:=readkey; 

case ord(keyout) of 83: 0utChar(#127); 

79: OutChar(#10);72: 0utChar(#26); 

80: OutChar(#11);75: 0utChar(#8) ; 

77: OutChar(#24);71: 0utChar(#29); 

59: OutChar(#30);60: OutChar(#31); 

61: clrscr;62: Initia(1);67: Initia(O); 
68: Branch;15..25,30..38,46..50,63..66, 
84..140,3,44,73,81,82:;end;end 
else OutChar(keyout);end;end;end; 
end; 


procedure Emu2; 
label 10; 

begin while (keyouto#l) do begin 
Byteln:=InByte(newbyte); 

Byteln:=(ByteIn and $7F); 
if newbyte then begin 
if i=3 then begin 

xx:=ByteIn-31;gotoxy(xx,yy); 
i:=0;goto 10;end; 
if i=2 then begin 

yy:=ByteIn-31;Inc(i); 
goto 10;end; 

if i = l then begin Dec(i); 
case Byteln of 
65:gotoxy(wherex,wherey-1); 

66:gotoxy(wherex,wherey+1); 

67:gotoxy(wherex+1,wherey); 

68:gotoxy(wherex-1,wherey); 
72:gotoxy(l,1);75:ClrEol;74:ClrEos; 
89:i:=i+2;else;end; 
goto 10;end; 
case Byteln of 

0:;7:write(#7);9:gotoxy(wherex+ 

(8-(wherex mod 8)),wherey); 
27:Inc(i);else wri-te( char (Byteln ) ) ; 
end;end; 

10: if keypressed then begin 
keyout:=readkey; 
if not (keyout=#l) then begin 
if keyout=#0 then begin keyout:=readkey; 
case ord(keyout) of 
83: OutChar(#127);79: 0utChar(#10); 

72:'begin OutChar(#27);OutChar(#65);end; 
80: begin 0utChar(#27);0utChar(#66);end; 
75: begin 0utChar(#27);0utChar(#68);end; 
77: begin 0utChar(#27);0utChar(#67);end; 
71: begin OutChar(#27);0utChar(#82);end; 
59: begin OutChar(#27);0utChar(#81);end; 
60: begin OutChar(#27);OutChar(#80);end; 
61: clrscr;62: Initia(1);67: Initia(O); 
68: Branch;15..25,30..38,46..50,63..66, 
84 . .140,3,44,73,81,82:;end;end 

else OutChar(keyout);end;end;end; 

end; 

procedure Emulace; 

begin Title;i:=0; SioInt_off; 

if comnr=l then begin 

com:=comul;Comint:=$0C;end 
else begin com:=comu2;Comint:=$0B;end; 


Initcom(com,bd,db,sb,par); 

SetIntvec(Comint,©readcom); 
lnpoint:=0;0utpoint:=0; 

SioInt_on;keyout:=#$FF;0utChar(#13); 
if term=terl then Emul else Emu2; 
end; 

procedure Arrows(ms:strarr; 

ds,1,o:integer); 
procedure Move(i:integer); 
begin write(ms[wherey]); 
gotoxy(wherex-ds,wherey+i); 
if 1=0 then Textbackground(0) 

else Textbackground(green); 
write(ms[wherey]); 
gotoxy(wherex-ds,wherey); 
if 1=0 then Textbackground(white) 
else Textbackground(0); 

end; 

begin c:=readkey;case ord(c) of 
72: if wherey=l then Move(o) 

else Move(-1); 

80: if wherey=o+l then Move(-o) 
else Move(l); 
else write(#7);end; 

end; 

procedure Keys; 
begin Textbackground(white); 
window(l,l,80,25);clrscr;Textcolor(14); 
gotoxy(7,24);write('Zbyvajici klavesy', 
PC odpovidaji terminalu nebo nemaji', 
zadny vyznam');gotoxy(30,22); 
write('Navrat zpet -> <Esc>'); 
gotoxy(24,2);write('P0PIS FUNKCNICH ', 

'RLAVES EMULATORU');Textbackground(0); 
window(10,4,35,20);clrscr; 
Textbackground(green); 


write( ' 

TERM 

INAL 

CM7202 

') 

write( ' 




') 

write( ' 

klavesa 


funkce 

') 

gotoxy(1,5);Textbackground(0) ; 


write( ' 

FI 


EOL 

') 

write( ' 

F2 


EOS 

') 

write( ' 

F3 

Vymaz obrazovky 

') 

write( ' 

F4 

Popis 

klaves 

') 

write( ' 

F9 

Zmena parametru 

') 

write( ' 

F10 

Odskok 

do DOSu 

') 

write( ' 

Enter 


CR 

') 

write( ' 

End 


, LF 

') 

write( ' 

Home 


HOME 

') 

write(' 

Delete(Del) 

DEL 

') 

write( ' 

Backspace 

BS 

') 

write( ' 

Ctrl-A 

Ukonceni 

emulace 

') 


Textbackground(O);window(45,4,70,20); 
clrscr;Textbackground(green); 


write( ' 

TERM 

INAL CM7209 

') 

write( ' 



') 

write( ' 

klavesa 

funkce 

') 

gotoxy(1,8);TextBackground(0); 


write( ' 

Enter 

CR 

') 

write( ' 

End 

LF 

') 

write( ' 

Delete(Del )• DEL 

') 

write( ' 

Backspace BS 

') 

write( ' 

F3 

Vymaz obrazovky 

') 

write( ' 

F4 

Popis klaves 

') 

write( ' 

F9 

Zmena parametru 

') 

write( ' 

F10 

Odskok do DOSu 

') 

write( ' 

Ctrl-A 

Ukonceni emulace 

') 


window(1,1,80,25);gotoxy(47,22); 
repeat repeat until keypressed; 

c:=readkey;if c<>#27 then write(#7); 
until c=#27; 
end; 


procedure Bottom(u:byte); 

begin Textbackground(0);Textcolor(14); 









window(4,22,77,24);clrscr;gotoxy(2,1); 
if u=0 then gotoxy(19,1); 
write( ' Volba moznosti : '); 

Textcolor(10); 

write(#24,#25,' + Enter'); 

Textcolor(14);if u=l then begin 

write( ' nebo primo ');Textcolor(10); 

write(' cislo ' ) ;Textcolor(14); 

write(' volby');gotoxy(2,3); 

write(' Popis funkcnich klaves : '); 

Textcolor(10);write('<K> '); 

Textcolor(14); 

write('Ukonceni emulace : ' ) ;end 

elseHsegin gotoxy(3,3); 
write( ' Navrat bez ulozeni : '); 

Textcolor(10);write(' Esc'); 

Textcolor(14);write(sp:9, 

'Navrat s ulozenim : ');end; 

Textcolor(10);write('Ctr1-A '); 
end; 

procedure Init(u:byte); 
label 2; 

var ch:byte;f:text; 
procedure Default; 

begin Textbackground(0);Textcolor(14); 
window(50,4,77,18);clrscr; 

Textbackground(green);write(sp:28); 
write(' NASTAVENE HODNOTY '); 
write;write(sp:28);write; 
write ln;,wr iteln ;Textbackground(0); 
write( ' Seriovy port : '); 

Textcolor(10);write(p[comnr]); 

Textcolor(14);writeln; 

write(' Rychlost prenosu : '); 

Textcolor(10);write(bd:4);Textcolor(14); 
writeln;write(' Parita : ') ; 

Textcolor(10);write(x[par]); 

■¥extcolor(14);writeln; 

write(' Pocet dat. bitu : '); 

Textcolor(10);write(db:4);Textcolor(14); 
writeln;write(' Pocet stop bitu : '); 
Textcolor(10);write(sb:4);Textcolor(14); 
writeln;write(' Prvni volba : '); 

Textcolor(10);write((yk):4); 

Textcolor(14); 
end; 


procedure Save; 

begin assign(f,'EMU89.CFG');rewrite(f); 
writeln(f,comnr);writeln(f,bd); 
writeln(f,par);writeIn(f,db); 
writeln(f,sb);writeln(f,yk); 

. writeIn(f,drv);close(f); 
end; 

procedure MainWindow(m:strarr;n,l:byte); 
var i,li:byte; 
begin li:=23; 

if 1=0 then begin 1i:=3; 
Textbackground(O);window(4,4,40,18); 
clrscr;Textbackground(green); 
write(sp:38);write( ' Z M E N A 
'PARAMETRU ');write(sp:36); 

end;window(4,9,40,(9+n)); 

Textbackground(green);gotoxy(li,1); 
write(m[l]);gotoxy(li,wherey+1); 
Textbackground(0); 

for i:= 2 to n+1 do begin write(m[i]); 
gotoxy(li,wherey+1);end;gotoxy(li,1); 
end ; 

procedure Pdspf 

(m:strarr;ds,o:integer;var res:word); 
begin MainWindow(m,o,1); 

repeat repeat until keypressed; 
c:=readkey;if c=#0 then Arrows(m,ds,1,o) 


else begin case ord(c) of 
27:exit;13:begin res:=wherey;exit;end; 

else write(#7);end;end; 

until'false; 
end; 


procedure Speed; 
begin MainWindow(e,7,1); 

repeat repeat until keypressed; 
c:=readkey;if>c=#0 then Arrows(e,5,1,7) 
else begin case ord(c) of 
27:exit;13:begin case wherey of 
1: bd:=9600;2:bd:=4800;3:bd:=2400; 
4:bd:=1200;5:bd:= 600;6:bd:= 300; 

7:bd:= 150;8:bd:= 110;else bd:=9600; 
end;exit;end;else write(#7);end;end; 
until false; 
end; 

begin ch:=l;if u=0 then begin 
{$I-}assign(f,'EMU89.CFG'); 
reset(f);close(f);{$1+} 
if I0Result=0 then begin 
assign(f,'EMU89.CFG');reset(f); 
readIn(f,comnr);readln(f,bd); 
readIn(f,par);readIn(f, db); 
readln(f,sb);readIn(f,yk); 
readln(f,drv);close(f);ch:=0;end;end; 
if ch=l then begin 
if u=0 then begin comnr:=l; 
bd : =9600; par : =3; db : =8; sb : =1; yk.: =1; 
drv:='C';end;Textbackground(white); 
window(1,1,80,25) ;clrscr;Textcolor(14); 
gotoxy(25,2); write('Emulator ', 
'terminalu E M U 8 9');Bottom(0); 

2:Default;MainWindow(m,5,0); 

repeat repeat until keypressed; 
c:=readkey;if c=#0 then Arrows(m,18,1,5) 
else begin case ord(c) of 
27:begin if u=0 then Save;exit;end; 

1 :begin Save;exit;end; 

13:begin case wherey of 
1:begin Pdspf(p,4,1,comnr);goto 2;end; 
2:begin Speed;goto 2;end; 

3:begin Pdspf(x,5,2,par);goto 2;end; 

4:begin Pdspf(d,6,1,db ) ; 

db:=db+6;goto 2;end; 

5:begin Pdspf(b,10,1,sb);goto 2;end; 

6:begin Pdspf(t,13,2,yk);goto 2;end; 
else begin write(#7);goto 2;end;end; 
end; else write(#7);end;end; 
until false;end; 
end; 


begin \ 

r : =9+q ; term : =terl; z : =u+u ; v: =h+h; ±,ac 
s[l]:='l. Emulace terminalu CM7202' 
s[2]:='2. Emulace terminalu CM7209' 
s[3]:='3. Zmena parametru prenosu' 
m[l]:=' Seriovy port 
m[2]: = ' Rychlost prenosu 
m[3]: = ' Parita 
m[4] 
m[5] 
m[6] 

PCI] 
e[2] 
e[4] 
e [6] 
e[8] 
x[2] 
d [ 1 ] 
b[ 1] 
t [1] 
t [2] 
t [33 


= 0 ; 


Pocet 

dat. 

bitu '; 

Pocet 

stop 

bitu '; 

Prvni 

volba 

> 

COM 1'; 

p[2] : = 

'COM2';e[ 

4800' 

;e[3]: 

=' 2400'; 

1200' 

;e[5]: 

=' 600'; 

300' 

;e[7]: 

= ' 150';- 

110' 

;x[l]: 

= '1icha '; 

suda' 

j x [ 3 ] : 

='zadna'; 

7 bitu 

*;d[2] 

:='8 bitu 


9600' 


= 'l 


stopbit';bC2]: = '2 stopbity 
CM 7202' 


=' CM 7209' 

=' Inicializace' 


GetIntVec(Comint,altcom); 










exitsave:=exitproc;exitproc:=@myexit; 
CheckBreak:=false;Origmode:=Lastmode; 
Textmode(C080);5:Textbackground(white); 
window(1,1,80,25);clrscr; 
Textbackground(blue);window(4,2,77, 16); 
clrscr;Textbackground(green); 

Textcolor(14);gotoxy(10,3); 

write(r,v,v,v,v,v,v,v,v,v,v,v,v,v,v,v, 

v,v,v,v,v,v,v,v,v,v,v,v);gotoxy(10,4); 
'write(r,sp:15,r,v,v,v,h,q,v,v,v,r,sp:3, 
r,sp:14,r ) ;gotoxy(10,5);write(r,sp:15, 
r, sp:7,q,sp:6,r,sp:3,r,sp:14,r ) ; 
gotoxy(10,6);write(r,sp:15,r,sp:7,q, 
sp:6,r,sp:3,r,sp:14,r);gotoxy(10,7); 
write(r,sp:15,r,sp:7,q,sp:6,r,sp:3,r, 
sp:14, r ) ;gotoxy(10,8);write(r,z,z,z,z, 
z, sp : 5, r, sp : 14, r, sp: 3 , r , sp: 14, r ) ; 
gotoxy(10,9);write(r,sp:15,r,sp:14,r, 
sp:3,r,sp:14,r);gotoxy(10,10);write(r, 
sp : 15, r, sp : 14, r, sp : 3, r, sp : 14, r ) ; 
gotoxy(10,11);write(r,sp:15,r,sp:14,r, 
sp:3,r,z,z,z,z,z,z,z,r);gotoxy(10,12); 
write(r,z,z,z,z,z,z,z,z,z,z,z,z,z,z,z,z, 
z,z,sp,'(c) 1989 - PKSoft');Bottom(1); 
window(4,18,77,21);Textcolor(143 ) ; 
gotoxy(34,2);write('Okamzik'); 
if zac=0 then begin lnit(0); 

Inc(zac) ;yl: =yk;goto 5,'end; 
Textcolor(12);Textbackground(0); 


gotoxy(26,yl);write(s[wherey]); 
Textbackground(white);case yl of 
1:begin gotoxy(26,2);write(s[2]); 
gotoxy(26,3);write(s[3]);gotoxy(26,1); 
end;2:begin gotoxy(26,3);write(s[3]); 
gotoxy(26,l);write(s[l]);gotoxy(26,2);• 
end;3:begin gotoxy(26,l);write(s[l]); 
gotoxy(26,2);write(s[2]);gotoxy(26,3); 
end;end;repeat i:=0;if zac=l then begin 
repeat Inc(i);until keypressed or 
(i = 15000) ;if i = 15000 then c:=#13 else 
c:=readkey;Inc(zac);end 
else begin repeat until keypressed; 
c:=readkey;end; 

if c=#0 then Arrows(s,27,0,2) 

else begin case ord(c) of 
1: exit;13: begin case wherey of 
2: begin yl:=2;term:=ter2;Emulace;end; 

3: begin yl:=3;Init(1);end; 
else begin yl:=1;term:=terl;Emulace;end; 
end;goto 5;end; 

49: begin yl:=1;term:=terl;Emulace; 
goto 5;end; 

50: begin yl:=2;term:=ter2;Emulace; 
goto 5;end; 

51: begin yl:=3;Init(1);goto 5;end; 
107,75:begin yl:=wherey;Keys;goto 5;end; 
else write(#7);end;end;until false; 
end. 



PRIPOJENIE TLA 

K6314 K PMD 85-2 A SHAI 


najsf v prislusnej dokumentacii k tomuto 
obvodu (napri'klad v | 61). V kratkosti mo2no 
zhunOt: Podmienka vyslania informacie je, 
ze signal ACKn musi byf v stave log.1. Ak 
tento signal invertujeme, mo2eme povedaf, 
ze invertovany signal ACKn v log.O znamenb 
ziadosf tlabiarne o vyslanie informcicie, t. j. 
signal ACn. Porovnanim s IRPR teda mozno 
konstatoval': 


Ing. Peter Synek, Jana Smreka 12, 841 07 Bratislava 

Dostal som sa pred ulohu pripojif osobne mikropocitace typu PMD 
85-2 a Sharp MZ800 k tlaciarni Robotron K6314. Kazde z tychto 
zariadem je vybavene inym typom interfejsu. Tlaciaren ma interfejs 
typu IFSP (u nas sa oznacuje IRPR), mikropocitac Sharp MZ800 ma 
interfejs typu Centronics a PMD 85-2 vyuziva mod 1 integrovaneho 
obvodu MHB 8255A s podporou handshake. 


Popis interfejsu IRPR (obr. 1) 

Vymena informacu (DO : D7)n sa vykona- 
va za pomoci signalov ACn a SCn v rezime 
ziadost' - odpoved’. Signalom ACn ziada 
tlaciaren o vyslanie dat. Pobitac platnosf dat 
potvrdzuje signalom SCn. 

Pobitac moze vyslaf data a signal SCn iba 
za podmienky, ked tlaciaren vysiela signal 
ACn. Tlabiaren mdze ukonbif ACn za pod¬ 
mienky, ked’ pocitab vysiela signal SCn. 


Popis intefejsu Centronics - 
Sharp MZ 800 (obr. 2) 

Blizsi popis najdu zaujemci v 11 |. 
Porovnanim s intefejsom IRPR mozno 
napisat: 

RDAn = ACn 
RDPn - SCn 

Data su vzajomne invertovane. 


Popis interfejsu PMD85-2 (obr. 3) 


signal smer 

tlaciaren- pocitac 

^ 1 _ -_ 

35 ^_ __ 

® I_I -- 

1 

5? |_jj- 

DATA j | -- 


Obr. 1. Signaly interfejsu IRPR (903-1) 


signal smer 

tlaciaren-pocitac 

RDA I j 

I 

wp j_u -- 

DATA 1 |- -- 


OBFn = SCn 
ACK - ACn 

Data su vzajomne invertovanb. 


Koncepcia a riesenie prepojenia 

Na zaklade predoslych konbtatovani bola 
zvolena nasledovna koncepcia riesenia. 
Bola vyhotovena jedna doska plobneho spo- 
ja zakonbena konektorom FRB, ktorym sa 
pripaja priamo do PMD 85-2. Z druhej strany 
je vedeny kabel zakonceny konektorom pre 
pripojenie tlaciarne (konektor sa dodbva 
s tlaciamou). Pre pripojenie osobneho mi- 
kropocitaca Sharp MZ 800 bola zrealizova- 
na ,,redukcia“, prevadzajuca signaly z pria- 
meho konektora pobitaba Sharp na konektor 
FRB tak, aby sa tlabiarefi pripajala cez tento 
konektor FRB rovnako ako ku pocitabu PMD, 
85-2. 

Realizacia celeho pripojenia je zrejma zo 
schemy na obr. 4. Obrazec plosnych spojov 
je na obr. 5. 

Hradlb integrovanych obvodov DD2 
a DD3 sliizia na invertovanie vystupnych 
datovych signalov z mikropobitabov. Hradlb 


signal smer 

tlaciaren - pocitac 

ACK 1 J *■" 

W~~ [ J -- 

DATA [ | -- 


Vyuziva sa tu mod b. 1 integrovaneho Obr. 2. Signaly interfejsu Centronics Sharp > 
obvodu MHB8255A a blizbi popis mozno (903-2) Obr. 3. Signaly interfejsu PMD-85 (903-3) 







Cl . 100 nF 

C2 . 50jjF/6 V 


Obr. 4. Schema pripojenia (903-4) 


DD1.3 a DD1.4 sluiia na vykonove prisposo- 
benie signalu OBFn z pocftaca PMD 85-2, 
ktory je vedeny priamo z MHB8255A bez 
vykonov6ho zosilnenia. Vstupne obvody 
IRPR tladiame su riesene odporovym pri- 
sposobenfm s rezistormi malych odporov 


a priame pripojenie by mohlo viesf k po§ko- 
deniu MHB8255A. V prfpade pocftaca Sharp 
MZ800 vlastne tieto hradl& nemaju vyznam, 
preto^e vsetky jeho vystupy su vykonovo 
prisposobene. Signal ACn sa z tlaciarne 
privadza priamo na vyvod b. 7 konektoru 


FRB, odkiaf je v prfpade pocftafia Sharp 
MZ800 vedeny ako signal RDAn priamo do 
pofiitafia. V prfpade PMD 85-2 treba tento 
signal invertovaf. Na to sa vyuzfva invertor, 
ktory je na konektore FRB v PMD85-2 vyve- 
deny. Vyvod 6.7 je vstupom tohoto invertora, 
jeho vystup je na vyvode 6.6, odkiat je signal 
vedeny na vyvod 6fslo 10 ako signal ACKn. 

Signal SOn je natrvalo pripojeny na log.O. 

Nap&jacie napatie +5 V pre integrovane 
obvody je pouzite z tlafiiame cez nevyuZity 
vyvod 6. C8. 

Realizacia ,,redukcie“ pre pripojenie 
Sharp MZ800 spocfva iba v pripevnenf vhod- 
nych konektorov na spolocnu do§ti6ku a ich 
vzajomnom prepojenf dr^tovymi spojmi. 
Prepoje su jasne zo sch6my (obr. 4). 

Ozivenie a uvedenie do chodu by nemalo 
robif problemy vzhradom na jednoduchosf 
zapojenia. Nesmie sa v§ak zabudnuf v inter- 
fejsu IRPR tlafiiarne vyviesf na prfslu§ny 
nevyuzity vyvod (u n6s C8) napajacie napa¬ 
tie +5 V). 


Zoznam suciastok 


DD1.DD2, DD3 MH7438 

R1 ~ RIO • IkQ, TR211 

Cl lOOnF, TK 783 

C2 50 11 F/ 6 V, TE 981 

konektor FRB TY5122011/20 

konektor FRB TX5112013/20 

pre Sharp MZ800 

konektor WK46580 (skrciteny na 

2x13 vyvodov) pre Sharp MZ800 


1 

2 


3 

4 

5 

6 


Literatura 

Centronics. Amaterske radio A 10/1984, 
str. 382. 

System malych elektronickych pocfta- 
bo v SMEP, Abecednocfslicovy displej 
SM 72-00. Technicka dokumentacia, 
Vydavatelstvf Novinar Praha pre Teslu 
Orava. 

Technicky popis modulu UKPR-8. 
Technicka dokumentacia TESLA. 

MZ 800. Owner’s manual, Sharp. 

PMD 85. Udebny material kurzu ,,Basic 
G“, Datasystem. 

Kocis, /., Sulko, /.: Mikroprocesory a mi- 
kropocftafie. ALFA, Bratislava - 1986. 



Obr. 5. Obrazec ploSnych spojov zo strany Obr. 6. Obrazec ploinych spojov zo strany Obr. 7. Rozmiestnenie sudiastok na doske 
' spojov na doske Y504 (903-5) suciastok na doske Y504 (903-6) Y504 (903-7) 














Ing. iVO Krepinsky, Karlovarska 5, 301 12 Plzen 

Generator tiskovych sesfav slouzt k ulehcem prace pri vytvareni programu pro tisk. Tvorf jej soubor 
procedur v Turbo Pascalu, ktere je nutno pripojit k programu. 

Tiskova sestava se tiskne podle predlohy vytvorene predem textovym editorem. V predloze jsou 
vyznacena pole prio tisk hodnot. Do techto poll se pri behu programu doplnuji konkretm udaje a vysledna 
sestava se tiskne. 

v Tiskovou sestavu je mozno nejen vytisknout na tiskarne, ale i na jinem zarizeni (terminal), pripadne ii ulozit 
do souboru. 


Vyhody GTS: 

- jednoduchy a rychly navrh tiskove sesta¬ 
vy- 

- zkraceni programu pro tisk, 

- snadnejsi ladeni bez sloziteho vypocita- 
vani poiohy na papiru, 

- oddeleni graficke a obsahove slozky tis- 
ku, 

- moznost uprav tiskove sestavy bez zasa- 
hu do programu, 

- navrzena tiskova sestava siouzi zaroven 
jako cast dokumentace, 

- vystup je mozno ve stejnem tvaru posilat 
na libovolne vystupni zarizeni nebo do 
souboru. 

Generator tiskovych sestav je vytvoren 
V Turbo Pascalu v.3 a je pou^itelny v pro¬ 
gramed! napsanych v tomto jazyku na 
vsech pocitacich, kde pracuje prekladac to- 
hoto jazyka. 


— Vytvoreni predlohy 

Predloha pro tiskovou sestavu se vytvari 
libovolnym textovym editorem (napr. Word¬ 
Star). Obsahuje pevne texty sestavy v tom 
tvaru, jak maji vypactat na vystupu. Dale 
obsahuje pole pro vystup hodnot. Tato pole 
jsou oznacena znakem (podtrzitko). Del- 
ka pole je urcena poctem podtrzitek. 

Pole musi byt na jedne radce, nesmi byt 
rozdeleno na vice radek. Neni mozno umistit 
dve pole tesne za sebou bez oddeleni jinym 
znakem. 

Soubor obsahujici predlohu tiskove sesta¬ 
vy musi mit standardoi priponu “,TS“. 


Pouziti GTS 


Vyplnovani hodnot 

Program nejprve musi precist ze souboru 
predlohu tiskove sestavy (procedura TSRE- 
AD). Predloha setrvava v pameti a je mozno 
ji pouzivat, dokud neni prectena jina. 

Po precteni predlohy je mozno postupne 
vyplhovat pole pro hodnoty. Aktivni pole je 
urdeno polohou ukazovatka. Po precteni 
predlohy, po tisku sestavy a po uziti proce- 
dury TSFIRST je ukazovatko nastaveno na 
prvni pole tiskove sestavy. Kazdy zapis hod¬ 
noty (procedura TSPRINT) posunuje ukazo¬ 
vatko na dalsi pole. Procedura TSSKIP 
umoznuje preskocit pole bez vypln§ni. 


Qvldddni vystupnrho souboru 

s Vysttu^ ie rooino posilat do IjbovQlneho 
v Turbo P^ictiu. Pri 
WK •t ; r i :'<S. ; '^P^|pnliffkAtord (CON:, 
ssilat i na vystupni 

l*f«d 't&WTtt vvstupy je nutno soubor otevrit 
TSOPEN), po ukonceni uzavrit 
(procedufS TSCLOSE). 


Vsechny vystupy (procedury TSOUTPUT 
a TSWRITE) se posilaji do otevreneho sou¬ 
boru. 

Pouziti generatoru v programu 

Na pocatku programu je nutno nadefino- 
vat konstantu TSLEN, ktera udava maximal- 
ni pocet znaku nejvetsi predlohy, ktera bude 
v programu pouzita. 

Generator se k programu pripoji direktivou 
i$l GTS}. 

Procedury pro praci 
- s generatorem 

\ 

TSOPEN(Soubor:string| 14 |) 

- otevira vystupni soubor, 

- tato procedura musi byt pouzita pred vsemi 
vystupy (TSOUTPUT a TSWRITE), 

- muze byt uvedeno libovolne jmeno soubo- 
ru (tiskarna je LST:, terminal CON:), 

- vsechny vystupy provadene procedurami 
TSOUTPUT a TSWRITE se provadeji do 
otevreneho souboru. 

TSCLOSE 

- zavira vystupni soubor, 

- je nutno pouzit, pokud je vystupnim soubo- 
rem diskovy soubor, jinak se data nezapisi. 

TSREAD(Soubor:string| 14 |) 

- cte predlohu tiskove sestavy ze zadaneho 
soubom, 

- jmeno souboru se zadava bez pripony - ta 
je vzdy .TS, 

- ukazovatko se nastavi na prvni pole sesta¬ 
vy, 

- predloha sestavy zustava v pameti az do 
precteni jin6 predlohy. 

TSPRINT(Hodnota:string| 255 |) 

- zapisuje hodnotu do tiskove sestavy, 

- zapis se provadi vzdy do soucasneho pole, 

- po zapisu se ukazovatko nastavi na nasle- 
dujici pole, 

- pri zapisu se zacina od prvniho znaku 
vystupniho pole, 

- znaky hodnoty presahujici delku pole se 
odriznou, 

- zbyvajici znaky do delky pole se doplni 
mezerami, 

- zapis se provadi pouze do pameti, vystup 
se provede az procedurou TSOUTPUT. 

TSSKIP 

- preskakuje soucasne pole, 

- ukazovatko se nastavi na nasledujici pole. 

TSFIRST 

- nastavuje ukazovatko na prvni pole sesta¬ 
vy. 

TSOUTPUT 

- zapise kompletni sestavu do vystupniho 
souboru, 


- mi'sto nevyplnenych poll se tisknou meze- 

ry, 

- po skonceni zapisu se nastavi ukazovatko 
na prvni pole sestavy a je mozno znovu 
vyplhovat pole. 

TSWIRE(Retezec:string| 255 |) 

- zapise retezec do vystupniho souboru, 

- siouzi pro nestandardni vystupy a pro 
ovladani tiskarny (napr. odstrankovani), - 

- retezec se do vystupniho souboru zapise 
presne v zadanem tvaru, 

- zapis do vystupniho souboru se provadi 
ihned. 

Poznamka: Pokud maji procedury paramet- 
ry, jsou vsechny typu retezec. Procedury 
nevraceji zadne hodnoty. 


Popis realizace GTS 

Generator tiskovych sestav je navrzen 
jako soustava procedur. Pro prehlednost 
a nazornost jsou procedury dale cleneny na 
mensi podprogramy. 

Nazvy vsech objektu (typu, promennych 
apodprogramu), ktere jsou deklarovanyjako 
globalni, ale jsou urceny pouze pro GTS, 
zacinaji znaky “TS_“, aby byla vyloucena 
moznost kolize. Nazvy vsech objektu, ktere 
je mozno v programu vyuzivat, zacinaji zna¬ 
ky “TS". 

Pomocne promenne 

TS_M:array| 0 .. TSLEN | of char 

pole pro predlohu tiskove sestavy, naplhuje 
se pri TSREAD; vystupni pole jsou oznace¬ 
na nastavenim nejvyssiho bitu na 1. 

TS_Ptr:lnteger 

ukazatel do pole TS_M na akutalni znak; 
obsahuje polohu, kde se bude cist nebo 
zapisovat. 

TS_Soubor:text 

vystupni soubor. 

Pomocne procedury a funkce 

TSJnit 

inicializace ukazatele TS_Ptr. 

TS.Put (Znak:char) 

zapis znaku do pole TS._M a zvyseni ukaza¬ 
tele TS_Ptr. 

TS_Get:char 

cteni znaku z pole TS_M a zvyseni ukazatele 
TS_Ptr. 

TS_Dirget:char 

cteni znaku z pole TS_M bez zvyseni ukaza¬ 
tele TS_Ptr. 





TS_lsF(Znak:char)boolean 

urcuje, zda je dany znak soudastf pole pro 
vystup hodnoty. 

TS_SetF(Znak:char):char 

vraci zadany znak jako soucast pole pro 
vystup hodnoty. 

TS_GetF(Znak:char):char 

vraci zadany znak bez oznaceni jako sou- 
cast pole pro vystup hodnoty. 

Poznamka: 

Realizace je navrzena tak, aby bylo mozno 
provest n£ktere zm§ny. Pomocf procedur 
a funkci je oddelen problem uschovani pred- 
lohy tiskove sestavy a problem oznaceni poll 
pro vystup hodnoty. 

Popis algoritmu 
hlavmch procedur 

TSOPEN 

- prirazeni nazvu souboru k TS_Soubor, 

- otevreni pro zapis. 

TSCLOSE 

- zavreni souboru. 

TSREAD - lokalni promenne: 

Soubor:file - soubor predlohy. 
Sektorrarray | 0 .. 127 | of char - oblast 
pro cteni sektoru. 


- prirazeni nazvu predlohy k Soubor a ote¬ 
vreni pro fiteni, 

- iniciafizace TS_Ptr, 

- Steni sektoru ze Soubor az do konce 
souboru: 

- pro kazdy sektor, 

- Prevod znaku ‘J na vnitrni oznadeni 
vystupniho pole, 

- ulozeni znaku do pameti, 

- zavreni souboru predlohy, 

- pridani ~Z na konec, 

- nastaveni prvniho pole (TSFIRST). 

TSFIRST 

- inicializace TS_Ptr, 

- vyhledani prvniho znaku s oznacenim 
vystupniho pole. 

TSSKIP 

- preskoceni znaku s oznacenim vystupni¬ 
ho pole 

- vyhledani nasledujiciho znaku s oznace¬ 
nim vystupniho pole. 

TSPRINT 

- od soucasne polohy se hodnota zapisuje 
az do delky pole, 

- zbyvajici znaky hodnoty se ignoruji, 

- pokud neni vycerpana delka pole, doplni 
se mezerami, 

- skok na dalsi pole (TSSKIP). 

TSOUTPUT 

- inicializace TS_Ptr, 


- cela sestava, znak po znaku az do ~Z, se 
zapiSe do souboru, 

- nastavi se prvni pole (TSFIRST). 

Navrh uprav programu 

Zjednodusem programu: 

- vdtsinu pomocnych podprogramu je moz¬ 
no zrusit a jejich cinnost prenest na misto 
jejich volani - program se tim zkrati, 

- vystup je mozne omezit pouze na tiskarnu; 
pak je mozno zru§it procedury TSOPEN 
a TSCLOSE a zjednoduSit vystupy. 

Vylepseni programu: 

- pridelovat pamef pro predlohu tiskove 
sestavy dynamicky, 

- vytvorit zasobnik predloh v ptrtieti a tim 
umoznit opakovane pouziti predlohy bez jeji- 
ho noveho cteni, 

- umoznit v procedure TSSKIP preskakova- 
ni poll' nazpatek a preskakovani o zadany 
pocet poll, 

- zavest ruzne formatovani vystupu hodnot 
do poll sestavy (napr. zarovnani vpravo, na 
dany pocet desetinnych mist) (vetsinatechto 
uprav vsak s sebou prinasi znacne zvetseni 
programu bez patrnych vyhod pro pro- 
gramatora). 

Realizace v jinych jazyci'ch: 

Navrzeny algoritmus GTS je mozno reali- 
zovat i v jinych programovacich jazyci'ch 
temef shodne. 

Pro pocitace, ktere nemaji diskovou pa- 
mef, by bylo mozne algoritmus upravit tak, 
aby pracoval s pfecttdfiou tiskove sestavy 
zadanou jako data v programu, Tim se v§ak 
odstranuje jedna z hlavnich vyhod GTS 

- jednoduche a nazorne vytvareni predlohy. l , 


Strana: 


Dat urn: 


SEZNOM PROCDVNIKU 


Priklad pouziti 


Cislo: _ Prijmeni: 

Jmeno: 


Datum narozeni: _ Misto: 


Strana: 1 

Obr. 1. Predloha obou castf sestavy (930-1) 

SEZNOM PROCQVNIKU 

Datum: 01—08—89 

Cislo: 1 

Prijmeni: 

Novak 

l 



Jmeno: 

Datum narozeni 

Josef 

: 01-01-40 

Misto: 

Plzen 

Cislo: a 

Prijmeni: 

Jmeno: 

Datum narozeni 

Soukup 

Jiri 

: 10-02-56 

Misto: 

Praha 


Peiriiti GTS je predvedeno na jednodu- 
ch6m prikladu. Program tiskne seznem pra- 
eovnfk^ z diskoveho souboru. 

Kaidy list sestavy se skl£d£ t htSviiky 
ft vypisu udaiu o nekolika zamdstnfincich. 
Program vYttftve dvd pfedlohy pfd tytd dvi 1 
eesti tiSkdWsfestavy - je<^u pro nfevi6ku ! 
a jednupro udaje o jednom zamestnahci. Na 
kaidoirstranu se pak tiskne nejprve hlavicka 
s doplnenym datem a Cf«tem strany a pak 
dan# pop^t zamesma^'toro ka±<Ml^ se 
doplrtuje}eho pofadovemto a dufSfl&ip 26 
souboru). ' , 


Vypis 1. Generator tiskovycfj sestav 

(930-V1) #: 7 

{******************************* 

* GTS * 

* generator tiskovych sest av * 

* • •**;■■■■■? * 

* Ing. Ivo Krepinsky ♦ 

* tc> 1906,1989 f 

* # 
******************************* 



proced ury 


Popis: 

SoiAor 

pro 

Pour**it ’ - m 

Soubor pri- 

dava direktivou *t TB. Na za- 
catku programu musi byt prove- 
. deno nastaveni konstanty TSLEN 
- maximalni delka tiskove se¬ 
stavy v bytech > 


Obr. 2. Prtklad sestavy (930-2) 








type 

TS_Strl4=stringC143 5 
TS_Str255=stringC2553; 

var 

TS_M:array C0..TSLEN3 of char; 
TS_Ptr:Integer; 

TS_Soubor:tent; 

procedure TS_Init; 
begin 

TSPtr:=0; 
end; 

procedure TS_Put(Znakschar); 
begin 

TS_MCTS_Ptr3:~Znak; 
if TS_Ptr (TSLEN then 
TS_Pt r;=TS JPtr+1; 

end; 

function TS_Get: char; 
begin 

TS_ 6 et :=TS_MCTS_Ptr3; 
if TS_Ptr(TSLEN then 
TS_Pt r:=TS_Pt r+1; 
end; 

function TS_DirSet:char; 
begin 

TS_DirGet:=TS_MCTS_Ptr3; 
end; 

function TS_IsF(Znak:char)s 

boolean; 

begin 

TS_IsF:=Znak>#127; 

end; 

function TS_SetF(Znak:char): 

char; 

begin 

TSSetF:=Chr(Ord(Znak)or $80); 
end; 

■Cvypis seznamu pracovniku) 
4**kazkovy program pouziti GTS> 

const 

TSLEN=262; 

GTS> 

type , 

S£r8=stringC83; 

procedure Hlavicka 

(Strana:integer;Datum:Str 8 ); 

var 

Cislo:stringC43; 
begin 

if Strana) 1 then TSWRITE (' N L) ; 
TSREAD(’ TEST1*); 

Str(Strana, Cislo); 

TSPRINT (Cislo) ; 

TSPRINT(Datum); 

TSOUTPUT; 

TSraEPD (’ TESTS’ ) ; 
end; 


vap 

Dat urn : Str 8 ; 

Soubor:string Cl43; 

Data:text; 

Prijmeni:string C203; 

Jmeno:stringC153; 

Mar:stringC83; 

MiptosstringC153; 

Strana,Cislo:integer; 
RetCis:stringC53; 

begin 

Write (’ Datum: ’); 

Readln(Datum); 

Write(* Vystupni soubor: ’); 
Readln(Soubor); 

TSOPEN(Soubor) ; 

Assign(Data,’TEST.DPT’); 
Reset(Data); 

Stranai=l; 

Cislo:=0; 

while not EOF(Data) do 
begin 


if (Cislo mod 4)=0 then 
Hlavicka(Strana, Datura); 
Readln(Data,Prijmeni, Jmeno, 

Nar,Misto); 

Cislo:=Cislo+l; 

Str(Cislo:5,RetCis); 

TSPRINT(RetCis); 

TSPRINT(Prijmeni); 

TSPRINT(Jmeno); 

TSPRINT(Nar); 

TSPRINT(Misto); 

TSOUTPUT; 

end; 

Close(Data); 

TSWRITE ('''L) ; 

TSCLOSE; 
end. 

while TS_DirGet O^Z do 
Write(TS_Soubor, 

TS_GetF(TS_Get)); 

TSFIRST; 
end; 

procedure TSWRITE(Value: 

TS_Str255); 

begin 

Write(TS_Soubor,Value); 
end; 

procedure TSOPEN(Spee:TS_Strl4); 
begin 

Assign(TS_Soubor,Spec); 

Rewrite(TS_Soubor); 
end; 

procedure TSCLOSE; 
begin > 

Close(TS_Soubor); 
end; 

V 

Vypis 2. Ukazkovy program pouziti GTS 
(930-V2) 

function TS_GetF(Znak:char): 

char; 

begin 

TS_GetF:=Chr(Ord(Znak) and 


procedure TSFIRST; 
begin 
TS Init; 


while not TS_IsF(TS_DirGet> do 
if TS_Get= A Z then Exit; 
end; 

procedure TSSKIP; 
var 

Znak:char; 
begin 

while TS_IsF(TS_DirGet) do 
Znak:=TS_Get; 

while not TS_IsF(TS_DirGet) do 
if TS_Get=~Z then Exit; 
end; 

procedure TSREAD(Spec:TS_Strl4>; 
var 

Soubor:file; 

Sektor:array C0..1273 of char; 
I:integer; 
begin 

Assign (Soubor, Spec-*-’. TS’ ) ; 
Reset(Soubor); 

TS_Init; 

while not EOF(Soubor) do 
begin 

BlockRead(Soubor,Sektor,1); 
for I:=0 to 127 do 
begin 

if SektorCI3=’then 
SektorCI]:=TS_SetF(» ’ ); 
TS_Put(SektorCI3) ; 
end; 
end; 

Close(Soubor); 
if Sektor Cl3 O^Z then 
TS_Put(~Z>; 

TSFIRST; 
end; 

procedure TSPRINT(Value: 

TS_Str255); 

var 

I:integer; 
begin 

for I:=l to Length(Value) do 
if TS_IsF(TS_DirGet) then 
TS_Put(TS_SetF(ValueCI3)); 
while TS_IsF(TS_DirGet) do 
TS_Put(TS_SetF(’ ’ )); 

TSSKIP; 
end ; 

procedure TSOUTPUT; 
begin 
TS_Init; 
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Clanek se zabyva pouzitim hardwarove nasobicky MH102 v osmibito- 
vych mikropocitacich. Pri praktickych aplikacich mikropocitacu napr. 
v merici technice se dostava do popredi problem aritmetickeho zpraco- 
vani namerenych dat. Ciste programove reseni vypoctu je obvykle 
casove narocne, a proto se k jeho urychleni pouzivaji aritmeticke 
koprocesory (napr. I 8231,1 8232 apod.), ktere se vsak obtizne shaneji 
a jsou drahe. Pritom v rade aplikaci vystacime krome souctu a rozdflu 
pouze s nasobenfm, ktere ovlivnuje celkovou dobu vypoctu rozhodujici 
merou. 


Urychlit vypofiet nasobeni Ize pouzitim 
hardwarove n^isobidky s integrovanym ob- 
vodem MH102 k.p. Tesla Roinov. Tento 
programovatelny periferni obvod, vhodny 
pro pouziti v systemech s mikroprocesorem 
typu 8080, je vyrobeny technologii l 2 L a pred- 
stavuje uplnou nasobibku 8x8 bitu s moz- 
nosti zaokrouhleni a prace se znamenkem 
v pevne radove bcirce. 

Principialni zapojeni nasobicky je na 
obr. 1. Obvod MH102 obsahuje 6 ridicich 


vstupu: CS, W, RD, AO, FR a RND1, a 8 vstu- 
po/vystupu datove sbernice. Vstup CS je 
urcen k vybaveni obvodu a vstupy W a RD 
rizeni z^pisu resp. bteni dat. Logickci uroveh 
na vstupu AO urcuje pri zapisu prvniho a dru- 
heho cinitele a pri cteni vyssi nebo nizsi bajt 
vysledku, vstup FR ridi format nasobeni 
a RND1 zaokrouhlovani podle funkcni tabul- 
ky Tab. 1. 

Pri prakticke realizaci je nutne'pripojit ob¬ 
vod-na datovou sbernici mikropocitabe pfes 




Obr. 1. Principialni zapojeni nasobicky 
(913-1) 
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Tab. 1. Funkcni tabulka (913—T1) 


stykovy obvod, napf. 8255, 8286 nebo 3216. 
ftidici signbly Ize odvodit z adresovb a ridici 
sbbrnice, napf. pro zbpis a bteni signbly 
JOWn a lORn, pfipadne MWn a MRn mikro- 
procesoru 8080 a pro rizeni nasobeni signa- 
!y adresovb sbbrnice. Signal CS pro vybave- 
ni obvodu odvodime adresovym dekoderem 
(3205). Na obr. 2 je uvedeno konkretni 
zapojeni uplnb nasobibky pro zakladni sy¬ 
stem mikropocitace s mikroprocesorem 
8080, predstavovany mikropobitacem PMI- 
80. Toto zapojeni je realizovano s ohledem 
na maximum jednoduchost a minimblni nb- 
roky na programovou podporu. Pro pfipojeni 
na datovou sbbrnici je vyuzit oboustranny 
budib sbbrnice 8286, fizeny signbly MRn 
a' CS3n. Signal MRn ridi smbr pfepisu dat 
a signal CS3n vybbr pouzdra (i u MH102). 
Tento signal je ziskbn z adresoveho dekode- 
ru 3205 v PMI-80 a je puvodne urben k fizeni 
stranek pambti. Nasobickaje tedy adresova- 
na jako sektor pambti a nikoliv jako V/V 
obvod, coz krome vbtbi rychlosti pfinasi i vy- 
hodu vbtbiho instrukbniho souboru pro praci 
s daty. Zbpis a bteni dat obvodu MH102 ridi 
signaly MWn a MRn a tri nejnizsi bity adreso- 
vane sbbrnice specifikuji nasobeni. A0 na- 
stavuje nizbi a vybsi bajt, A1 urbuje zao- 
krouhlovbni a A2 format nasobeni. Protoze 
obvod MH102 je vyroben technology l 2 L, 
jsou pro prizpusobeni datovych signalu ur- 
beny rezistory R (5,6kQ). Napajeni obvodu 
je proudove z 5V pres seriovy rezistor R s 
(33Q), napajeni je u kazdeho obvodu bloko- 
vano kondenzatory C b (100 nF). 

Programov6 obsluha nasobicky je jedno- 
duch&. Ze zapojeni a funkbni tabulky sesta- 
vime adresy pro zapis a bteni vyssiho a niz- 
§iho bajtu pro jednotl.ive typy nasobeni. Kon- 
kr6tn§ pro pripad na obr. 2 plati: signal CS3n 
vymezuje v PMI-80 adresovou oblast 0C00H 
a l OFFFH a volbou spodnich tri bitu zajisti- 
me po^adovanou funkci. Napf. pro nasobeni 
8x8 bitu bez zaokrouhleni musi byt A2 = 
= FR = L a A1 = RND1 = L a pro nizsi bajt 
(prvni dinitel) AO = L a vy§si bajt (druhy 
fiinitel) AO - H. Pro podpogram vystacime 
pouze s instrukcemi pro zapis a cteni dat 
z pameti. Napf. podprogram pro nasobeni 
dvou bajtu ulozenych v registrech H a L s vy- 
sledkem v parovem registru HL vypada tak- 
to: , 

MUX: SHLD 0C00H : Ulozeni cinitelu 

LHLD 0C00H : Nabteni vysledku 

RET 


Obr. 2. Konkrbtnl 
zapojeni uplne 
nisobidky 
(913-2) 





Navrh plo§nych spoju a podprogramy pro 
jednotlive typy nasobeni neuv^dim, protoze 
si jiste kazdy uzivatel pfizpusobi zapojeni 
podle svych moznosti a vytvofi podprogra¬ 
my podle svych pozadavku. Zapojeni naso- 
bidky je znafind univerzalni a Ize jej snadno 
pfizpusobit pro ruzn6 typy mikropoditadu 
s mikroprocesory typu 8080 nebo Z80. 


Literatura 

11 j Polovodicove soucastky 1984/85. Kata- 

log TESLA Roznov k.p., Roznov pod 
Radhostem, 1983. 

12 | PMI-80 - Uzivatelska prirucka. TESLA 

PieSfany k.p. 
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Pred casom sa objevil v predaji zapisovac typu Sharp MZ-1P16, 
vybaveny pripojemm Centronics. Nakol’ko pocitac SORD M-5 komuni- 
kuje s tlaciarnou cez rovnake rozhranie a originalny printer k tomuto 
pocitacu nie je dostupny, pouzivam uvedenu tlaciaren-zapisovac ako 
periferne zariadenie k tomuto pocitacu. 


Sharp MZ-1P16 je vlastne §tvorfarebny 
suradnicovy zapisovac riadeny zabudova- 
nym mikropocitacom, ktory zabezpecuje 
cinnosf v dvoch rezimoch, a to v rezime 
textovom, v ktorom komunikuje s pobitacom 
ako tlabiaren, a v rezime grafickom, v ktorom 
vykondva grafickb prikazy (napr. prikaz 
X 1,10,20 m£ za nasledok vykreslenie 
X-ovej osi, na ktorej bude vynesenych 20 
znabiek vzdialenych navzajom o 10 krokov). 
Nakofko k zapisovabu je dodavany podrob- 
ny navod, ktory obsahuje popis vsetkych 
grafickych prikazov, ako aj riadiacich kodov 
textoveho rezimu, nebudeme sa tymito d’alej 
zaoberaf, ale uvedieme riesenie z^kladnych 
problemov, s ktorymi sa stretne majitef pobi- 
taba SORD M-5 pri pripajani tohto zapisova- 
ba. 

V prvom rade musime vyriebif napajanie. 
Zapisovac nema vlastny'zdroj, nakorko vy- 
robca predpokladal jeho pripojenie na zdroj 
pobitaca SHARP MZ-800. Uzivatef je teda 
nuteny postavif zdroj, ktory dod^ pri 5 V asi 
2 A (kfudovy odber zapisovaca je len 0,5 A, 
ale pri zdvihani a sklapani pierka dosahuje 
spominanb 2 A). 

Po pripojeni zdroja (kladny pbl napajania 
je na vonkajbej strane konektora, kym zapor- 
ny pripajame ke stredovbmu vodicu) a otes- 
tovani zapisovaba autotestom pristupime 
k jeho pripojeniu na pobitab. 


Pri pripajani vychadzame zo zapojenia 
konektoru tlaciarne, ktorb je uvedene na 
obr. 2. 6alej musime vziaf do uvahy rozdiel- 
nosti v ponimani btandardu Centronics 
u oboch firiem. Tato rozdielnost' spobiva 
v tom, ze tlabiarefi povazuje signbl RDP 
(analog STROBE) za aktivny pri vysokej 
logickej urovni, kym pobitab SORD M5 ho 
povaiuje za aktivny pri urovni nizkej. Tuto 
rozdielnost' vyriebime zapojenim invertora 
medzi prislubnb dva vyvody. Vysledne zapo- 
jenie je na obr. 1 . Ako invertor je pouZite 
jedno hradlo NAND obvodu MH7400 s pre- 
pojenymi vstupmi. 


Programove zabezpecenie tlace 

V pripade dokonalbho prepojenia konek- 
torov (mysli sa dokonaleho z hfadiska odru- 
benia signalu) vystacime s rutinami obsiah- 
nutymi v monitore pobitaba, na ktore sa 
odvolava BASIC pri vykonavani inbtrukcii 
typu CLIST" PRT:“ a PRINT=2 .... kde 
kanbl b. 2 bol priradeny tlaciarni prikazom 
OPEN “PRT:“ AS=2 (tu sme vyuzili prikazy 
jazyka BASIC-F). Tymto sposobom mozno 
tlabif vbetky vefke pismena, a ostatne ASCII 
znaky, ktorych kody spadaju do intervalu 32 
az 95. Malb pismena nezodpovedaju stan- 
dardu ASCII, pokiaf ide o ich'kody, bo zne- 
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Obr. 


1. Schema 
pripojenia 
zapisovaca 
Sharp MZ1 PI5 
k pocitacu 
Sord M5 (905-1) 


S0RD-M5' 


M2-1PI 6 


2 2 

Obr. 2. Zapojenie konektoru tlaciarne 
(905-2) 

moznuje pouzitie prikazu LIST“PRT:“, ktory 
vysiela instrukcie a funkcie BASIC-u repre- 
zentovane malymi pismenami, ale musime 
pouzif instrukciu CLIST. Kody malych pis- 
men su vypisane v tabul’ke 1 , pricom za 
kazdym znakom je uvedeny jeho kod v de- 
siatkovej aj sestnastkovej sustave. 

Program, ktory priamo konvertuje text 
z ASCII do kodu tlaciarne SHARP, je vo 
Vypise 1. Po spusteni programu pri'kazom 
RUN vysle pocitac na obrazovku hlasenie 
SPRAVA a nacita text' zlozeny maximalne 
z 64 znakov, ktory vysle na tlaciaren. Maxi- 
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malnu dizku textu mozeme nastavif na riad- 
ku 5 prepisanim cisla 64 na ciselnu hodnotu 
pozadovanej dlzky textu. Na riadkoch 20 az 
40 sa tvori prevodova taburka kodov, pricom 
obsah prvej polozky pofa PREV bude obsa- 
hovat’ kod SHARP pismena ,,a“ a 26. poloz- 
ka tohto pora kod pismena ,,z“, pricom 
vsetky pismena su zoradene v abecednom 
poradi. Na 50. riadku sa nastavuje riadiaci 
bajt drajvera tlaciarne tak, aby na konci 
riadku vysielal len kod CR a nie CR aj LF 
a aby neprevadzal automaticke riadkovanie. 
Cast’ programu na riadkoch 80 az 120 vyko- 
nava konverziu ret’azca nacitaneho na riad¬ 
ku 70, pricom vystup konvertovaneho ret’az¬ 
ca prebehne na riadku 130. Opatovny start 
vykonnej casti programu je zabezpeceny 
prikazom GOTO 70 na konci programu. 

Standardny drajver, obsiahnuty v monito- 
re pocitaca, je mozne pouzif len v pripade 
dokonale odruseneho vedenia medzi pocita- 
com a tlaciarnou. Ak mame problemy s pre- 
nosom (komolenie prenasanych textov 


a hlavne vynechavanie znakov) musime vy- 
tvorif program obsluhy tlaciarne v BASIC-u, 
ktory zabezpeci pomalsi prenos dat a tym aj 
vyssiu spoFahlivosf prenosu. Riesenie uve- 
deneho problemu je vo Vypise 2. Podpro- 
gram zacinajuci navestim SOUT je nahra- 
dou drajveru Centronics, t.j. vysle kod jedne- 
ho znaku a signal STROBE privedie do 
aktivneho stavu, potom caka na potvrdenie 
prijmu (signal READY) a nakoniec privedie 
signal STROBE do stavu pasivneho. 

Pre uplnosf treba dodaf, ze datove bity 
rozhrania Centronics su adresovane hodno- 
tou 64. Signal STROBE prislucha prvemu 
a signal READY druhemu bitu vstupnovy- 
stupneho kanalu adresovaneho cislom 80. 
Prenasany kod vstupuje cez premennu 
MPRIS. 

> Podprogram SPRINT prida na koniec re- 
fazca B$ znak CR a takto upraveny refazec 
vysle na tlaciaren prostrednictvom podpro- 
gramu SOUT. 


-0 SPRINT 

72 'PDDPROGRRN PRINT 

73 '***************************. 

74 'NRHRRDI PRIKP2 ' PRINT#2 BS, 

75 'PRICOH PRIPOJI 2NRK "CR" NR 

76 'KONIEC RETR2CR B$ 

77 'PREDP0KLRDRI1E, EE TLRCIRRNI 

78 '"PRT:" PRISLUCHR KRNRL C.2. 

79 BS=BS+CHRSCE.0D3 

80 FOR IPR I = 1 TO LENCBS) 

90 npRis=niDscBs, ipri, n 
100 GOSUB SOUT 

110 NEXT 

120 RETURN 

130 SOUT 

131 'YXXXXXXXXXXXXXXXXXXXYXXYXXX 

132 'PODPROGRRH • OUT 

133 'YXXXXXXXXXXXXXXXXXXXXXXXXXX 

134 'UYSLE JEDEN 2NRK, KTORY JE 

135 'UL0EENY • U PRENENNEJ MPRIS 

136 'NR TLRCIRREN. ' 

137 'PRENOS SR PREUEDIE CEE ROE- 

138 'HRRNIE CENTRONICS. 

140 OUT 64,RSCIICMPRISJ 

150 OUT 80,0:REPERT:UNTILCINPC803RND 23> 
0 

160 OUT 80,1 

170 RETURN 
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Tab. 1. Kody malych pismen (905-T1) 

5 LEN 64 

10 OPEN "PRT:" RS#2 

20 DIM PREUC263 :'TRBULKR K0D0U MRLYCH 
25 'PISMEN 

30 FOR 1=1 TO 26:RERD PREUCI3:NEXT 
40 DRTR 161,154,159,156,146,170,151,152, 
166,175,169,184,179,176,183,158,160,157, 
164,150,165,171,163,155,189, 162 
50 POKE &705R,0 :REM NEUYSIELRT K0D"LF" 

60 'NR KONCI RIRDKU 
70 INPUT "SPRRUR" ,'RS :BS="" 

80 FOR 1=1 TO LENCRS3:M=RSCIICMIDSCRS,I, 
’133 

90 IF M>96 RND M<123 THEN M=PREUCM-963 
100 'RREU0D MRLYCH PISMEN E RSCII DO 
KODU SHRRP 
110 B$=BS+CHR$ CM3 
120 NEXT 
130 PRINT#2;BS 
140 GOTO 70 


Vypis 2. Riadenie tlaciarne v pripade nedokonaleho prepojenia 
konektorov (905-V2) 


Vypis 1. Program na vypis textu zlozeneho z malych aj velkych 
pismen (905-V1) 


MENU 


Vypise text menu obsluhy na 
obrazovku. 



Vola: 

VOLBA Zajisfuje volbu funkce pro- 
gramu podle zadani obsluhy 
z klavesnice. 


Ing. Jin Mitlohner, Zahradrv'228, Sazava, PS& 285 06 

Ucel programu: 

1. Pffklad vyuziti programovaciho jazyka LOGO v oblasti zpracovani 
seznamu a textu. 

2. Predvadi a uci zakladni cinnosti s databazovymi systemy. 

3. Umoznuje vytvorit jednoduche znalostni a vyukove systemy. 

4. Seznamuje s problematikou tvorby a vyuziti jednoduche baze zna- 
losti. 


Vola: ZAPIS, EXPERT, 
VYPIS, KONEC, 
NADISK, ZDISKU, 
MAZE, TISKNE, 
DISKETA. 

Provadl vypis jednotlivych 
uzlu baze znalosti podle od- 
povedi obsluhy na texty spoju 
(odkazu), realizuje mechanis- 
mus vlastm'ho expertnlho 
systemu. 


Spusteni programu 

Po vlozenl diskety zaplseme LOGO a tlm 
zavedeme do operacnl pameti interpret jazy¬ 
ka LOGO. 

Na obrazovce vypsane texty echa inter- 
preta odpovldajl 

a) 40 znakum v radku obrazovky, pak zapl¬ 
seme LOAD „EXPERT1“, 

b) 80 znakum v radku obrazovky, pak zapl¬ 
seme LOAD „EXPERT". 

Dale postupujeme podle popisu funkce 
programu a napovedy na obrazovce. 


Popis baze znalosti 

Baze znalosti je reprezentovana stromo- 
-~vou datovou strukturou, kde kazdy uzel je 
oznacen kodem ; (kod odstavce libovolna 
znakova kombinace), popsan textem (text 
odstavce o max. deice 128 znaku) a je 
spojen s jednlm nebo vice naslednymi uzly 
odkazem najejich kod (odkaz). Kazde spoje- 
nl muze byt popsano textem (text odkazu). 
Stromova struktura b£ze znalosti muze byt 
terrier libovolne vetvena i se zpetnym prova- 
zanlm. Programove je kazdy uzel baze zna¬ 
losti reprezentovan slozenym seznamem, 
kod uzlu je jmenem seznamu. Kody uzlu jsou 
ulozeny v seznamu (seznam jmen seznamu) 
se jmenem ,,jmena“. 

Pocatecnl uzel, to znamena odstavec, 
u ktereho zaclna funkce experta, musl byt 
oznacen kodem 1. Funkce experta ja ukon- 
cena odvolanlm na kod (odkaz) KONEC, 
ktery nemusl byt v bazi znalosti definovan. 
Poradl jednotlivych uzlu (odstavcu) v bazi 
znalosti nenl rozhodujlcl. Struktura je dana 
spojenlm jednotlivych uzlu odkazem na je- 
jich kod. 

Bazi znalosti muzeme ulozit na disketu do 
souboru se zadanym jmenem. Na diskete je 
ke jmenu souboru automaticky pripojena 
prlpona .DAT, kterou pri zadavanl jmena 
neuvadlme! 

Vypis zkusebnl baze znalosti, stejn§ jako 
baze znalosti prlkladu ,,Expertiza pri volbe 
pocltace a jeho programoveho vybavenl" 
jsou uvedeny ve vypisu. 


Jednotlive funkce Expertlka nablzene 

v menu obsluhy jsou nasledujlcl: 

E - expertlk startuje. Start expertnlho nebo 
vyukoveho programu na zaklade zada- 
ne baze znalosti. 

Z - zapis baze znalosti. Zapsanl nove, prl- 
padne dopln^nl stavajlcl baze znalosti 
z klavesnice. Zpusob zadani je uveden 
po vyvolanl funkce na obrazovce a je 
patrny ze zkusebnl baze a z prlkladu 
baze znalosti. 

V - vypis baze znalosti. Umoznuje vypis 
jednotlivych uzlu baze znalosti na obra¬ 
zovce, prlpadne jejich vymazanl z data- 
baze. 

U - uloz bazi a disketu. Ulozl bazi znalosti 
z operacnl pameti na disketu do soubo¬ 
ru se zadanym jmenem. 

N - nahraj bazi z diskety. Prehraje z diskety 
do operacnl pameti bazi znalosti uloze- 
nou v souboru se zadanym jmenem. 

T - tiskne bazi na tiskarne. Vytiskne bazi 
znalosti z operacnl pameti na tiskarne, 
vypis nenl strankovan. 

M - maz bazi znalosti. Vymaze celou bazi 
znalosti z operacnl pameti. 

D - vypis souboru diskety. Vypise jmena 
vlech souboru diskety. 

K - konec programu. Ukoncl praci pro¬ 
gramu Expertlk s navratem do interpre- 
tu jazyka LOGO. 


Popis programu 

Program muze slouzit jako ucebnice jazy¬ 
ka LOGO pro zpracovani seznamu. Jednotli¬ 
ve procedury a funkce je mozne po zadani 
vstupnlch parametru volat samostatne a sle- 
dovat tak jejich funkci. Proto jsou dale vyjme- 
novany vsechny procedury a funkce, udan 
popis jejich cinnosti a uvedeny prlpadne 
vstupnl paramatry. 

Zakladni procedury 

START Spusteni programu. Definuje 
pofiet znaku jedne radky 
obrazovky. 

Vola: POPIS, EXSYS 


Vola: STA, CHYBA 

ZAPIS Realizuje-zapis baze znalosti 

z klavesnice do operacnl pa¬ 
meti. 

Vola: ZZ 

VYPIS Provadi vypis baze znalosti 

po jednotlivych uzlech na 
obrazovku, a prlpadne reali¬ 
zuje zadane mazanl zobraze- 
neho uzlu. 

Vola: VYPS 

NADISK Koplruje bazi znalosti z ope¬ 

racnl pameti do pojmenova- 
neho souboru na diskete. Pta 
se na jmeno souboru, po za¬ 
dani kontroluje jeho existenci. 
Existuje-li soubor, ceka na 
odpoved’ k premazanl stavajl- 
clho souboru. 

Vola: WTE 

ZDISKU Nacte obsah zadaneho sou¬ 

boru baze znalosti z diskety 
do operacnl pameti. Testuje 
existenci souboru a dava ob- 
sluze prlslusne napovedy. 

Vola: RED 

MAZE Po dotazu provede vymazani 

cele baze znalosti V operacnl 
pameti. 

Vola: MAZ 

TISKNE Vypise bazi znalosti z ope¬ 

racnl pameti na tiskarnu. 
Dava obsluze prlslusne na¬ 
povedy. 

Vola: OUT 

DISKETA Zobrazl na obrazovce se¬ 

znam souboru na diskete. 

Vola: 


Popis funkce programu 

Program Expertlk umoznuje zakladni ope- 
race pro tvorbu, ulozenl, vypis a realizaci 
jednoduche baze znalosti. Zakladni funkce 
programu jsou nabldnuty po spusteni pro¬ 
gramu a v menu obsluhy. Behem chodu 
programu jsou prubezne uvaddny napove¬ 
dy, ktere umoznujl vyuzlt vsech jeho funkci 
bez podrobneho navodu. 


POPIS Vypise uvodnl text s dotazem 

na nahranl baze znalosti 
z diskety. 

Vola: ZDISKU 

EXSYS Realizuje vypis hlavnlho 

menu obsluhy a volbu jednot¬ 
livych funkci programu. 


Pomocne procedury a funkce 

STA Zajisfuje mechanismus vypi¬ 

su expertnlho systemu az po 
nalezenl kodu uzlu KONEC. 

Vstup: jm kod prvnlho uzlu 
Vola: VYBER 

VYBER Podle kodu najde uzel, ktery 

vypise na obrazovku. Nacte 


Vola: MENU, VOLBA 





z klavesnice k 6 d spoje k dal- 
sirnu uzlu. 


Vstup: p kod uzlu 
l /Ola: PIS, ITM 


PIS 

Vypiste cislo a texty spoju 
(odstavcu) nalezeneho uzlu. 


Vstup: i pofadove cislo spo¬ 
je v uzlu (objektu 
seznamu) 

pr jmeno uzlu (sez¬ 
namu) 

Vote: ODSTAVEC 

CHYBA 

ZZ 

Vypis echa chyby baze zna¬ 
lostl. 

Reaftzuje zapis jednoho se¬ 
znamu (uzlu baze znalostl) 
z klavesnice nebo z diskety 
(zalezi na vyberu vstupnlho 
zaflzenl) az po nactenl kodu, 
ukoncujiclho zapis. 

VSTUP 

Vstup: kod kod ukoncujlcl 
zapis 

Vraci: true byl ukoncen 
zapis 

Vote:. VSTUP 

Zaradl seznam z klavesnice 
nebo souboru diskety do ur- 
ceneho slozeneho seznamu. 

VYPS 

Vyplse jeden uzel na obra- 
zovku a testuje stlsk fidlclch 
klaves, podle kterych zrusl 
dais! vypis, pokracuje vypi- 
sem dalslho uzlu, nebo vola 
proceduru mazajlcl zobraze- 
ny uzel (vypis seznamu). 

TISK 

Vstup: jm kod zpracova- 
vaneho uzlu (jmeno 
seznamu) 

Vote: TISK, VYMAZ 

Je-li v operacnl pameti umls- 
tena baze znalostl, vyplse ko- 
dem zadany uzel na obrazov- 
ku (vypise seznam). 


Vote: TISKNI 

T1SKNI 

Zobrazl na obrazovce jeden 
uzel (zobrazl objekty sezna¬ 
mu). 

RADEK 

Vstup: jm kod uzlu (jmeno 
seznamu) 

Vote: RADEK 

Vyplse na obrazovku vsech- 
ny objekty zadaneho sezna¬ 
mu. 


Vstup: r jmeno seznamu 

VYMAZ 

Vymaze z operacnl pameti 
zadany seznam (uzel) a zaro- 
veh vymaze i jeho jmeno ze 
seznamu kodu uzlu (jmen 
seznamu). 


Vote: . DEL 

DEL 

Vymaze ze zadaneho sezna¬ 
mu oznaceny objekt. 


Vstup: p objekt 

js jmeno seznamu 
Vote: VYPUST, NAJDI 

VYPUST 

Vymaze ze zadaneho sezna¬ 
mu objekt se zadanym pofa- 
dovym clslem. 


Vstup: c pofadove cislo 
objektu 


s jmbno seznamu 
Vote: ROT 

ROT Vracl o zadane cislo rotovany 

seznam. 

JVstup: c pobet rotaci o je- 
den objekt 
s jmeno seznamu 

NAJDI Testuje pfltomnost zadaneho 

objektu v seznamu a vracl 
jeho pofadove 61 'slo v sezna¬ 
mu. 

Vstup: p objekt 

s jmeno seznamu 
Vote: NAJ 

NAJ Vracl pofadove cislo objektu 

v zadanem seznamu. 

Vstup: c pofadove cislo 
prvku od ktereho 
problha hledanl 
p objekt 

s jmeno seznamu 

WTE Zaplse do souboru na disku 

seznamy, jejichz jmena jsou 
zadana v seznamu jmen (uzly 
baze znalostl). 

Vstup: sb jmeno souboru 
na disketb 
jm jmeno sezna¬ 
mu jmen 
Vote: OUT 

OUT Zaplse na zvolene zaflzenl 

seznamy, jejichz jmena jsou 
zadana v seznamu jmen. 

Vstup: j jmeno seznamu 

jmen 

Vote: OUTS 

OUTS Zaplse na zvolene zaflzenl 

objekty seznamu (spoje 
uzlu). 

Vstup: s jmeno seznamu 

RED Cte ze souboru na diskete 

seznamy, jejichz jmena jsou 
zadana v seznamu jmen (uzle 
baze znalostl). 

Vstup: sb jmeno souboru 
na diskete 
Vote: ZAP 

ZAP Cte ze zvoleneho vstupnlho 

zaflzeni seznamy az do nale- 
zenl znafiky EOE (seznamu 
s textem EOE). 

Vote: ZZ 

MAZ Provede vymazani vsech 

promgnnych v operacnl pa¬ 
meti a inicializuje prazdny 

seznam jmen, vyplse hlasenl. 

fTM Vracl objekt se zadanym po- 

fadovym cistern ze zadaneho 
seznamu, pri zadanl vetsiho 
blsla nez je poslednl objekt 
vracl poslednl objekt sezna¬ 
mu. 

Vstup: c pofadove cislo 

objektu v seznamu 
s jmeno seznamu 

RP Provede vypis zvoleneho 

poctu zadaneho znaku na 
zvolene misto obrazovky. 


Vstup: c soufadnice vypi- 
su na obrazovce 
p podet vypisova- 
nych znaku 
z vypisovany znak 

SP Vypis zadaneho textu na zvo¬ 

lene misto obrazovky 

Vstup: c soufadnice vypi- 
su na obrazovce 
t jmeno seznamu 
s vypisovanym tex¬ 
tem 

ODSTAVEC Provadl vypis textu ze sezna¬ 
mu do odstavce zadaneho 
soufadnicemi na obrazovce. 

Vstup: poz soufadnice na 
obrazovce 
seznam jmeno 
seznamu 
Vote: LINE 

LINE Vyplse jeden text seznamu 

do jednoho fadku odstavce. 

Vote: KONRADKU 

KONRADKU Hilda fyzicky konec fadku na 
obrazovce. 

SAVEC Pomocna procedura pro za- 

pis zdrojoveho programu 
s echem na pfepsanl existujl- 
ciho souboru na disku. 

Vstup: spec jmeno souboru 


Vypis 1. Program Expertik (931-VI) 


(931-V1) 

TO START 
POPIS 
EXSYS 
END 

TO POPIS 

TS CT RP [2 8] 19 [*] 

SP [4 8] [* E X P E R T I K *] 

RP (6 8] 19 [*] 

SETCURSOR [84] 

(TYPE ■( "C ■) CHAR 32 [Ing.J.Hitlohner 1988]) 

SP [10 2] [Prograai umoznuje tvorbu a spusteni] 

SP [11 2] [jednoducheho expertniho systesu.] 

SP [12 2] [Punkce EXPERTKA je dana bazi] 

SP [13 2] [znalosti, Icterou muzete vytvorit] 

SP [14 2] [a zaznaienat na disk. Vytvorenouj 
SP [15 2] [bazi je aozne vyuzit pri novea] 

SP [16 2] [startu EXPERTKA. ] 

RP [19 2] 36 [J 

SP [21 2] [Cbces nahrat ZNALOSTI z diskety ?] 

SP [22 30] [Ano / Ne] 

IF RC = "A [ZDISKtJ] 

SID 

TO EXSYS 
MAKE *k "FALSE 
MENU 
VOLBA 

IF :k [CT SP [2 8] [PROGRAM EXPERTIK JE UKONCEN !] 
WAIT 40 CT SETCURSOR [1 1] STOP] 

EXSYS 

END 

TO MENU 
TS CT 


SP [2 5] [KBHO-EXPERTIKA] 

UP [3 0] 38 [_] 

SP [5 5] [E -expert ik startuje] 

SP [7 5] [Z - zapis baze znalosti] 

SP [8 5] [V - vypis baze znalosti] 

SP [15 5] [K - konec programu] 

SP [9 5] [D - uloz bazi na disketu] 

SP [10 5] [N - nahraj bazi z diskety] 

SP [11 5] [M - maz bazi znalosti] 

SP [12 5] [T - tiskni bazi na tiskame] 

SP [13 5] [D - vypis souboru diskety] 

RP [19 0] 38 [_] 

SP [21 3} [Stiskni vyznacenou klavesu !] 

END 

TO VOLBA 

MAKE "z RC 

IF :z = "Z [ZAPIS] 

IF :z = "E [EXPERT] 

IF :z = "V [VYPIS] 

IF :z = "K [KONEC] 

IF :z = "0 [NADISK] 

IF :z = "N [ZDISKU] 

IF :z = *M [MAZE] 

IF :z = T [TISKNE] 

IF :z = "D [DISKETA] 

END 

TO EXPERT 
CT 

IF NOT NAMEP "jmena [MAKE "jmena []] 

IF NOT NAMEP "1 [CHYBA] [MAKE "jm 1 STA :jm] 
END 

TO ZAPIS 

CT PR [ZAPIS BAZI ZNALOSTI VE TVARD :] 

RP [1 0] 36 [_] m [] 

PR [Kod odstavce] 

PR [Nazev odstavce] 

_PR [[TEXT ODKAZU 1] ODKAZ 1] 

PR [[TEXT ODKAZU 2] ODKAZ 2] 

PR [a t d dalsi odkazy] 

PR [ENTER] 

RP [8 0] 36 [J 
RP [22 0] 36 [J 

SP [23 2] [ZAPIS UKONCI DVOJDf STISKEM ENTER] 
IF NOT NAMEP "jmena [MAKE "jmena []] 

SETCURSOR [9 1] 

IF ZZ [] [STOP] 

ZAPIS 

END 

TO VYPIS 

IF NOT NAMEP 'jmena [MAKE "jmena []] 

VYPS :jmena 
END 

TO NADISK 

CT SP [8 2] [ZAPIS JMENO BAZE ZNALOSTI] 
SETCURSOR [10 2] TYPE [NA DISKETE ! -] 

MAKE "soubor RW 
IF EMPTYP :soubor [STOP] 

MAKE "soubor WORD :soubor ".DAT 
IF FILEP :soubor [SP [12 2] [BAZE NA DISKETE 
EXISTUJE PREMAZ Ano / He] 

IF RC = "A [ERASEFILE :soubor] [STOP]] 
SP [14 2] [PROBIHA ZAPIS NA DISKETU !] 

NTE :soubor :jmena 
END 


TO ZDISKU 

CT SP [8 2] [ZAPIS JMENO BAZE ZNALOSTI] 
SETCURSOR [10 2] TYPE [NA DISKETE ! -] 

MAKE "soubor RW 
IF EMPTYP :soubor [STOP] 

MAKE "soubor WORD :soubor ".dat 
IF NOT FILEP :soubor [SETCURSOR [12 2] 

(TYPE [BAZE -] :soubor [- NEEXISTUJE !]) 
WAIT 30 STOP] 

SP [14 2] [PROBIHA CTENI DAT Z DISKETY !] 


RED :soubor 
END 

TO MAZE 

CT SP [8 5] [POZOR ! CHCES OPRAVDU VYMAZAT1 
SP [10 5] [VSECHNA DATA ZNALOSTI ? Ano / Ne] 
IF RC = "A [MAZ] 

END 

TO TISKNE 

CT SP [8 2] [ZAPNI A PRIPRAV TISKARNU !] 

SP [10 2] [PO TE STISKNI NEKTEROO KLAVESU !] 
DRIBBLE "LPT1 
MAKE »:z RC 

SP [14 2] [PROBIHA TISK BAZE ZNALOSTI !] 

OUT :jmena 

NODRIBBLE 

END 

TO DISKETA 

CT SP [2 2] [VYPIS SOUBORU Z DISKETY] 
SETCURSOR [4 0] 

DIR 

SP [24 2] [UKONCI STISKEM NEKTERE KLAVESY !] 

MAKE :z RC 

END 

TO STA : jm 

IF EQUALP :jm "KONEC [STOP] 

MAKE "jm VYBER :jm 

STA :jm 

END 

TO VYBER :p 

MAKE "pr THING :p 

CT PR [] ODSTAVEC CURSOR FIRST :pr 

PIS 1 BF :pr 

PR[]PR[] 

REPEAT :sirka [TYPE "-] PR [] 

TYPE [Zapis cislo zvoleneho odstavce !] 

MAKE "z RC 

IF :z = CHAR 27 [OP 1] 

IF OR NOT NUMBERP :z :z = 0 [MAKE "z 1] 

OP LAST ITM (1 + :z) :pr 
END i 

TO PIS :i :pr 
IF EMPTYP BF :pr [STOP] 

PR [] PR [] 

(TYPE "( :i ") "-) 

ODSTAVEC CURSOR FIRST FIRST :pr 

PIS :i + 1 BF :pr 

END 

TO CHYBA 

SP [2 10] [ZNALOSTNI BAZE NENI UPLNA !] 

WAIT 100 
END 


TO ZZ :kod 
MAKE "jm RL 

IF EQUALP :jm :kod [OP "ISUE] 

MAKE "jm FIRST :jm 
MAKE :jm [ ] 

MAKE »s [] 

MAKE "jmena FPUT :jm :jmena 
VSTUP 

REPEAT COUNT :s [MAKE :jm FPUT FIRST :s 
THING :jm MAKE "s BF :s] 

OP "FALSE 
END 


TO VSTUP 

MAKE "ss RL 

MAKE "s FPUT :ss :s 

IF NOT EMPTYP :ss [VSTUP] 

END 

TO VYPS :jm 

CT SETCURSOR [2 1] TISK 


SP [21 2] [Pokracuj stiskea aezemikn !] 
SP [22 2] [Ukonci stiskea ESC] 

SP [23 2] [Vyaaz stiskea Ctrl C] 

MAKE "z RC 

IF :z * CHAR 3 [VYKAZ] 

IF :z = CBAR 27 [STOP] 

IF EMPTYP :ja [STOP] 

VYPS ROT 1 :jffl 
END 

TO TISK 

IF EMPTYP :ja [PR [CHYBI DATA ZNALOSTI !] 
STOP] [TISKNI :jm] 

END 

TO TISKNI :jm 
MAKE "proa FIRST :jm 
PR :proa 

MAKE "rad THING FIRST :jm 

RADEK :rad 

END 

TO RADEK :r 
IF EMPTYP :r [STOP] 

PR FIRST :r 
RADEK BF :r 
END 

TO VYMAZ 
ERN THING "proa 
DEL :prom "jmena 
MAKE "ja :jmena 
END 

TO DEL :p :js 

MAKE "S THING :js 

MAKE :js VYPUST NAJDI :p :s :s 

END 

TO VYPUST :c ,:s 
MAKE "C :c - 1 

OP ROT :c BF ROT (COUNT :s) - :c :s 
END 

TO ROT :c :s 

REPEAT :c [MAKE "s BL FPUT LAST :s :s] 

OP :s 
END 

TO NAJDI :p :s 

IF NOT MQfflERP :p :s [OP 0] 

OP NAJ 1 :p :s 
END 

TO NAJ :c :p :s 

IF NOT EQUALP :p FIRST :s [MAKE "c NAJ :c 
+ 1 :p BF :s] 

OP :c 
END 


TO WTE :sb :jm 
OPEN :sb 
SETWRITE :sb 
OUT :jm 
SHOW [EOE] 

SHOW [EOE] 
SETWRITE [] 
CLOSE :sb 
END 


TO OUT :j 

IF EMPTYP :j [STOP] 
MAKE "js FIRST :j 
PR :js 

OUTS THING ;js 
OUT BF : j 
END 

TO OUTS :s 
IF EMPTYP :s [STOP] 





m FIRST :s 

CT SP [8 5] [VSECHA DATA ZNALOSTI BYLA 

MAKE "cisrad FIRST CURSOR 

OUTS BF :s 

VYHAZANA !] 

MAKE "ppoz LAST :poz 

DID 

WAIT 30 

REPEAT COUNT iseznam [LINE] 


END 

END 

TO RED :sb 

MAKE "jaena [] 

TO ITM :c :s 

TO LINE 

OPEN :sb 

MAKE "cou COUNT :s 

IF KONRADKU [SETCURSOR LIST ((FIRST CURSOR) 

SETREAD :sb 

MAKE "cou :cou - 1 

+ 1) :ppoz] 

ZAP 

IF :c > :cou [HAKE "c :cou] 

(TYPE FIRST iseznam CHAR 32) 

CLOSE :sb 

IF :c < 1 [MAKE "C 1] 

MAKE "seznaa BF :seznaa 

SETREAD [] 

OP ITEM :c :s 

END 

END 

END 


' 

TO RP :c :p :z 

TO KONRADKU 

TO ZAP 

OP (((LAST CURSOR) + (COUNT 

IF ZZ [[E0B]] [STOP] 

SETCURSOR :c REPEAT :p [TYPE :z] 

FIRST :seznam)) > :sirka) 

ZAP 

END 

END 

END 

TO SP :c :t 

TO SAVEC :spec 

TO MAZ 

SETCURSOR :c PR :t 

IF FILEP WORD :spec ".LF [PR [SOUBOR EXISTUJE, 

ERNS 

END 

PREHREJ A / N] IF RC = "A 

MAKE "jaena [] HAKE "k "FALSE 


[ERASEFILE :spec] [STOP]] 

MAKE "z "X 

TO ODSTAVEC :poz iseznam 

SAVE :spec 


SETCURSOR :poz 

END 


Vypis 2. Baze znalosti (931-V2) 


230 

02 jste nekdy zkousel programovat? 

[Jiste, jsga profesional] 220B 

[Na necein se to prece musim naucit! ] 221 

[Nekolik jednoduchych program jsem vypotil] 221 

220B 

Jestli - jste si dostatecne overil sve programatorske 
dovednosti, pak si urcite vyberet sam, podle svych 
TInancnich moznosti 

[Pocitac koipatibilni s IBM PC XT. Cela rada vyrobcu, 
rozsahle prograaove vybaveni. Zbyva sehnat software.] 31 

221 

Zkuste se nejdrive seznamit s programovania na levnejsia 
pocitaci v klubech nebo u svych znamych, teprve potoa se 
rozbodnete! 

[Pokracuj stiskei nektere klavesy] 17 
220AA 

Cela rada domacich 16 bitovych pocitacu. Pred koupi nutno 
vlastnosti, cenu, moznosti nakupu konzultovat ( literatura, 
kluby ) 

[I pres konzultace si na nakup netroufaa] 221 
[Pro zacatek zvolia neco levnejsiho] 210 
[Dekuji, uz jsea si vybral] KONEC 

220A 

Ve svete velky vyber vetsinou 16 bitovych pocitacu. Pro nase 
podainky nejlepe 
[ATARI ST] 220AA 
[COMMODORE AMIGA] 220AB 

220 

Jestli jste jeste nikdy neprogramoval, doporucuji nizsi 
cenovou kategorii. Jinak zalezi na tom, jak chcete pocitac 
vyuzivat. 

[Aaatersky pro zabavu a pouceni v doaacnosti] 220A 
[Profesionalne pro zhotoveni a prodej prograoovebo vybaveni] 
220B 

210 

K dale nabizenya pocitacua si auzes prikoupit disketovou 
jednotku. Ozitne vlastnosti pocitace se anohonasobne zvysi! 
[Pokracuj stiskea nektere klavesy] 205 

205A 

Ve svete jeden z nejrozsirenejsich a nejlepsich ve sve 
kategorii. 0 nas dostupny pres inseraty. Malo rozsireny. 


[Vyber mi vyhovuje] 202 
[Malo inforaaci] 203 
[Chci jiny pocitac] 204 

205 

Bezny zajem - bezne zbozi 
[COMMODORE 64] 205A 
[Jine pocitace] 201 

204 

Chcete obetovat do pocitace vice penez? 

[Ano] 210 
[Me] 201 

203 

Prostudujte si literaturu, nebo se poradte v pocitacovych 
klubech! Vhodne casopisy - ELEKTR0NIKA, AMATERSKE RADIO, 
VTM. 

[Pokracujte stiskea nektere klavesy] KONEC 
202 

Mnoho uspechu pri koupi pocitace! Chcete poradit pri volbe 
prograaoveho vybaveni? 

[Ano] 10 
[Me] KONEC 

201D, 

D nas poaeme aalo rozsireny. Dostupny na inzerat. Omezene 
prograaove vybaveni.Dobra grafika a standartni klavesnice. 
[Vyber mi vyhovuje] 202 
[Malo inforaaci] 293 
[Chci jiny pocitac] 204 

201C 

0 nas rozsireny pocitac ( TUZEX, aaloobchod, inserce ) 
[Vyber ai vyhovuje] 202 
[Malo informaci] 203 
[Chci jiny pocitac] 204 

201B 

0 nas nejrozsirenejsi pocitac. Nevyrabi se. Nestandartni 
klavesnice, bohate programove vybaveni. Dostupny na 
inseraty. 

[Vyber vyhovyje] 202 
[Malo inforaaci] 203 
[Chci jiny pocitac] 204 

201A 

Tuzeasky vyrobek, bezne dosazitelny v obchodech. Teaer 
ekvivalent SINCLAIR SPECTRUM. Rozsahle prograaove vybaveni. 
(Jsea spokojeny s vybereuj 202 
[Malo inforaaci] 203 
[Chci jiny pocitac] 204 


201 

Nejcastejsi pripad, ale za malo penez malo muziky! 

[DIDAKTIK GAMA] 201A 
[SINCLAIR SPECTRUM] 201B 
[ATARI 800 XL / 130 XE] 201C 
[SHARP MZ - 800] 201D 

200 

Nesnadna odpoved! Kolik dices investovat penez? 

[Co nejmene] 201 
[Do 10 tis.Kcs nebo 250 DM] 205 
[Do 25 tis.Kcs NEBO 500 DM] 210 
[Do 90 tis.Kcs nebo 1000 DM] 220 
[Nezalezi na penezich] 230 

30 

Nevzdavejte se tab brzy! I v jinych jazycich musite umet 
formulovat ulohu, premysleni a drina Vas stejne nemine! 
[Radeji uz toho necham] 19 
[Jeste to zkusim] 52 

52 

Spravny zacatek Vasi programatorske kariery, ted jde o to 
jak jste si pri tom vedl! 

[Pokracuj stiskem nektere klavesy] 17B 

17B 

S jakymi vysledky jsi uspel v programovani? 

[Dokazi zapsat jednoduche programy, mam zajem o programovani 
v jinem jazyce] 30 

[Samostatne napisi a odladim i slozite programy vyuzivajici 
zapisu a vypisu dat na disketu ( kazetu )] 31 
[Pres vsechnu snahu mi dela potize sestaveni i jednoduchych 
programu] 19 

17A 

LOGO je rozsirene na vetsine typech pocitacu. Obrat se na 
_pocitacovy klub,stanice mladych techniku a pod. zarizeni! 
[Pokracuj stiskem nektere klavesy!] 17 

17 

Pro vstup do sveta programovani doporucuji jazyk LOGO. Je 
moderni a vytvorite si dobry zaklad pro vyuku dalsich 
jazyku. 

[Nemohu LOGO na svuj pocitac sehnat] 17A 
[Seznamil jsem se s jazykem LOGO] 17B 

51 

Nedostal jste se sice daleko, ale jste na spravne ceste 
[Pokracuj stiskem nektere klavesy!] 17 

50 

Nezvolil jste dobry vstup do zivota programatora! Radeji 
skuste rychle jeste neco jineho! 

[Pokracuj stiskem nektere klavesy] 17 , 

20 

Chcete mou radu, pak nejste s programovanim pri1is daleko. 

V jakem jazyku jste prevazne programoval? 

[BASIC] 50 
[KAREL] 51 
[LOGO] 52 

[Jednim, nebo vice z PASCAL,PROLOG,C,LISP,ASSEMBLER,COBOL] 

31 

[V zadnem a nebo ve vsech, ale ne moc uspesne] 17 
44 

Krome specializovanych prostredku jazyky PROLOG, LISP, 

MAMPS, C 

[Ukonci stiskem nektere klavesy] KONEC 

43 

Cela rada specialnich prograaovych prostredku na pr. 

ADTOCAD,CHART,DrHALLO,ORDCAD a jine. Doplnit jazyky C, LISP, 
pr. PASCAL. 

[Okonci stiskem nektere klavesy!] KONEC 


42 

Integrovany software na pr. dBASE,FRAMEWORK,SUPERCALC 
a jine. Z jazyku pak C - jazyk, PASCAL 
[Okonci stiskem nektere klavesy!] KONEC 

41 

Existuje bohata nabidka specielniho vybaveni na 
pr.STATGRAPHICS, EUREKA a dalsi. Jinak jazyky FORTRAN, 

PASCAL, BASIC 

[Ukonci stiskem nektre klavesy!] KONEC 
40 

Drive bych doporucil ASSEMBLER. Ten je vsak zavisly na typu 
pocitace. Nyni jednoznacne doporucuji C - jazyk ! 

[Ukonci stiskem nektere klavesy!] KONEC 

31 

Mate talent pro programovani! Dale zalezi na oboru, ve 

kterem tento talent chcete uplatnit 

[Rizeni stroju, robotu, technologii] 40 

[Vedecko technicke vypocty, matematika] 41 

[Ekonomicke vypocty, administrativa) 42 

[Projektovani, pocitacova grafika] 43 

[Tvorba zakladniho programoveho vybaveni] 40 

[Expertni systemy, znalostni systesy, umela inteligence] 44 

19 

Programator z Vas nebude, ted uz nemuzete nic pokazit, 
zkuste jazyk BASIC, mozna ze Vas uspokoji! 

[Ukonci stiskem nektere klavesy] KONEC 

21 

Pokuste se sehnat programovaci jazyk LOGO, ale nenechte se 
na zacatku odradit neuspechem! Vytrvejte! 

[Ukonci stiskem nektere klavesy] KONEC 

18 

Zkuste nejdrive programovaci jazyk KAREL 
[Programovani se Vam darilo a bavi Vas?] 17 
[Hra s robotem me nezaujala, ale programovat bych chtel 
v jinem jazyce] 21 

[Robot me nechce poslouchat,jeho slozitejsi cinnost nedokazi 
formulovat] 19 

[Nesehnal jsem program KAREL na muj pocitac] 21 
1 

Mate problem s vyberem pocitace a programoveho vybaveni? 
Expertik Vam pomuze! Staci odpovidat na jeho dotazy a poradi 
Vam! 

[Chci vyuzit sluzeb expertika pro vyber programoveho 
vybaveni] 10 

[Chci si poridt svuj prvni pocitac] 200 
[Nemam zajem o pomoc expertika] KONEC 

10 

Vyber zavisi na Vasich zajmech, dosavadnich znalostech 
a typu pocitace. 

[Nevim jeste, jaky pocitac si poridim] 200 
[Pocitac jsem si uz vybral, nemam zadne zkusenosti 
s obsluhou a programovanim] 15 
[Mam pocitac a znam zaklady programovani, chci se 
programovani systematicky venovat] 20 

15 

Musite se rozhodnout k jakym ucelum chcete Vas pocitac 
prevazne vyuzivat. 

[Hry a nebo hotove, jednoucelove programy] 16 
[Mam zajem se naucit programovat] 17 
[Jeste nevim, chci se rozhodnot pozdeji] 18 

16 

Hotove programy a hry Vam nabidnou pocitacove kluby, stanice 
mladych techniku, domy mladeze a podobne. 

[0 jine programy uz nemam zajem, nebo az pozdeji] KONEC 
[Prece jenom bych si rad zkusil neco sam naprogramovat] 18 

[EOE] 

[EOE] 



Ing. J. Kodera, Hurka 1058, 278 01 Kralupy n. V. 


Moznost pripojeni' tiskarny je jednou zezakladmch podminek pro skutecne efektivm vyuziti mikropoci'tacu 
vsech typu. U nas stale rozsirenejsi osmibitove domaci mikropocitace ATARI umoznuji pripojeni ruznych 
perifernich zarizeni (disketova jednotka, tiskarna, datovy magnetofon), pres seriovy port. Tento port vsak 
bohuzel neodpovida zadnemu beznemu standardu a tak Ize bez problemu pfipojit pouze periferie dodavane 
pri'mo firmou nebo vybavene prislusnym interfejsem (z tiskaren napr. ATARI 1027 nebo 1029, SEIKOSHA 
GP500AT). (Zapojeni bylo vyvinuto a zaslano redakci y roce 1987 - pozn. red.) 


Beznou tiskarnu vybavenou napr. rozhra- 
m'm Centronics Ize v zasade pfipojit dvema 
zpusoby: 

1. Vyuzit paralelni port pobitace pouzivany 
jinak pro pripojeni ovladacu (joysticku), ob- 
sluhovany v pocitaci obvodem PIA 6520, coz 
znamena napsat pfislubny obsluzny pro¬ 
gram pro pobitab. Nevyhodou tohoto febeni 
je, ze neni podporovano zadnym z bezneho 
programoveho vybaveni. 

2. Zkonstruovat interfejs, ktery se pripoji 
mezi seriovy port a tiskarnu. Toto febeni je 
sice narobnejsi, zato vsak daleko pruznbjsi 
a zachovava vsechny vyhody pobitabe vbet- 
ne podpory operacniho systemu, BASICu 
a veskereho softwaru (napr. textovych edito- 
ru), 

Druhe reseni je obsahem nasledujiciho 
prispevku. 

Princip komunikace pocitace 
s perifernimi zarizeni'mi 

Veskere periferie se k pocitaci pripojuji 
pres trinactipolovy konektor, umisteny na 
zadni strane pobitace. Popis konektoru je na 
obr. 1. Pro pripojeni interfejsu se vyuzivaji 
pouze vyvody b. 3, 4, 5, 7, 10. Periferie 
(s vyjimkou magnetofonu) jsou vybaveny 
vlastni ,,inteligenci“ a jsou pripojeny pres 
budice s otevrenymi kolektory, takze muze 
byt paralelne pripojeno vice zarizeni najed- 
nou, aniz by se vzajemne ovlivnovala. Pres¬ 
to jsou staridardni periferie vybavovany dvb- 
ma konektory podle obr. 1 propojenymi pa¬ 
ralelne. 

Vbechny napefove urovnb jsou TTL, logi- 
ka je pozitivni. 

Komunikace je seriova asynchronni, 
znacky jsou osmibitove s jednim START 
bitem (log.O) a jednim STOP bitem (log. 1). 
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Obr. 1. Konektor poci'tacu Atari pro seriovy 
styk s periferiemi (901 -1). Popis vyvodu: 

1 CLOCK IN nepouziva se 

2 CLOCK OUT nepouziva se 

3 DATA IN seriova vstupni 

datova linka 


4 GND zem 

5 DATA OUT seriova vystupni 

datova linka 


6 GND zem 

7 CMDn oznaceni povelu 

8 MOTOR CONTROL fizeni motoru dat. 


9‘ PROCEED 

10 + 5 V 

11 AUDIO IN 

12 NC 

13 INTERRUPT 


magnetofonu 
nepouziva se 
napajeci napSti 
vstup akustickeho signdlu 
nepouziva se 
nepouziva se 


Rychlost je 19 200 Bd, pouziva se standard- 
ni soubor znaku ASCII, pribemi znaky zo- 
brazovanb na stinitku inverzne maji nasta- 
veny nejvybbi bit do log.1. V klidu je na 
kontaktech (samozrejme s vyjimkou GND) 
urovefi log.1. 

Jak jiz bylo rebeno, komunikace je ,,inteli- 
gentni". V praxi to vypada napr. po prikazu 
LIST ,,P:“ nasledovne: 

1. Pobitab oznami vbem pripojenym perifer- 
nim zarizenim logickou urovni 0 na vyvodu 
CMD, te vydciva blok povelu. Zaroveb vyble 
pbt povelovych bajtu na vyvod DATA OUT. 
Slozeni poveloveho bloku je: jeden bajt oz- 
naceni periferie (40H pro tiskarnu, ,,P:“), 
jederi bajt oznabeni povelu (53H je zadost 
o status), dva bajty dodatecne informace 
(pro tiskarnu dvakrat 0), jeden bajt zabezpe- 
ceni (soucet vbech ctyr predeblych bajtu 
s uvazenim prenosu napr. instrukci ADC 
vbtbiny mikroprocesoru). 

2. Po skonbeni signalu CMD odpovi oslove- 
n^ perifbrie pres vyvod DATA IN podle druhu 
povelu. Odpoved’ na zadost o status je 
sedmibajtova. 

3. Pobitab vyda dalbi povelovy blok, opet 
zaroven se signalem CMD. Tento blok je 
stejny jako v bode 1, pquze je jine oznabeni 
povelu (57H pro zapis dat na perifernl zari- 
zeni s kontrolnim souctem). 

4. Oslovena periferie opet odpovi, tentokrat 
jen jednim bajtem (41H jako kladne potvrze- 
ni povelu). 

5. Pobitab vyda jeden blok dat, standardnb 
dlouhy 40 datovych bajtu plus jeden bajt 
zabezpebeni (stejnb jako u poveloveho blo¬ 
ku). 


6. Periferie odpovi jednim bajtem (41H jako 
kladne potvrzeni), zpracuje prijatb data a oz¬ 
nami pocitabi, ze komunikace muze pokra- 
covat (bajtem 43H). 

7. Neni-li komunikace ukoncena, pokrabuje 
pobitab bodem 3. 

V prubehu komunikace muze samozrejmb 
dojit k poruse; pokud pobitab nedostane 
vcas odpoved’ na svuj povel, opakuje ho 
(standardne celkem 13x), pokud ani jednou 
pritom nedostane odpoved’, vyhlasi chybu 
b. 138 (TIME OUT). Stejne je tomu v pripa- 
db, ze pobitab nedostane kladne potvrzeni 
o prijeti dat. 


Realizace a stavba zarizeni 

Z uvedeneho popisu zpusobu komunika¬ 
ce pocitabe s periferiemi vyplyvb, ze realiza¬ 
ce interfejsu je mozna prakticky jen pri pouii- 
ti mikroprocesoru, ktery je fizen programem 
zajibfujicim vbechny potrebne funkce a ktery 
zaroveh umoznuje interfejs prizpusobit prak¬ 
ticky libovolnb tiskarnb. Jakbkoli biste hard- 
warove reseni by vyblo neumernb slozitb 
a nakladne. Jako prakticky idealni febeni se 
nabizi pouziti nektereho jednobipoveho mik- 
ropocitace z rady 48, ktery ke svb funkci 
potrebuje minimum dalbich soubbstek a je 
relativne dostupny i v CSSR. Principialni 
schema interfejsu je na obr. 2. Pokud pouzi- 
jeme mikropocitab 8048 nebo 8035, je treba 
pfipojit obb vnbjbi pambti (RAM i EPROM). 
Vyhodnejbi je pouzit mikropobitab 8747 se 
zabudovanou vnitfni pambti EPROM, po- 



Obr. 2. Blokov'e schema zapojeni.interfejsu (901-2). 
Propojka SI je pro typ 8748 v poloze 1-3, pro ostatni typy v poloze 1-2. 
















tom odpada vndjsi programovatelna pamet’, 
avsak tento obvod je hure dostupny a pro 
vdtdinu amateru je velmi obtizne zajistit na- 
programovani vnitrni pameti. Vyhodne je 
i pouziti mikropocitace 8039, ktery ma pos- 
tadujici kapacitu vnitrni RAM, s dostupnosti 
tohoto obvodu je to v§ak jeste horsi (k. p. 
Tesla zatim dodava typy 8048, 8035 
a 8748). 

Na miste vnejsi RAM je mozne pouzit 
libovolnou pamef RAM s kapacitou alespon 
64 bajtu, vyhovi napr. dva tuzemske obvody 
MHB2114 s organizaci 1kx4 bity, ze zahra- 
nicnich typu napr. 6116 (s kapacitou 2 kB) 
apod. Latch je osmibitovy paralelni stradac, 
napr. MHB8282, SN74373, apod. EPROM je 
libovolna s kapacitou alespon 1 kB - napr. 
MHB8708C, vyhodndjsi z hlediska zachova- 
nf jedineho napajeciho napeti je vsak typ 
2716, resp. sovdtsky ekvivalent K573RF5. 

Jedna z moznosti konkretni realizace je 
na obr. 3. Jsou zde pouzity obvody, o kte- 
rych se domnivam, ze by mely byt nejsnaze 
dostupne. Jak vsak bylo receno. moznosti je 
mnoho a zalezi na moznostech a na stesti 
kazdeho zajemce o stavbu interfejsu, ktere 
konkretni obvody se mu ppdart sehnat. Z to¬ 
hoto duvodu rovnez neuvadim vykres desky 
s plo§nymi spoji; navic se domnivam, ze pro 
stavbu jednoho kusu je nejvyhodnejsi vyuzit 
nekterou univerzalni zapojovaci desku 
a dratove propojeni. Vyhodne je vsak pouzit 
sokly pro mikroprocesor a samozrejme pro 
EPROM. 

Kritickym mistem cele konstrukce je zrej- 
m§ krystal. Diky velmi vysoke prenosove 
rychlosti bylo nutno casovani odvodit primo 
z doby trvani instrukbniho cyklu, ktera je pro 
krystal 6 MHz 2,5 ns. Odpovidajici kmitocet 
je pro zakladni varianty mikropobitadu rady 
48 nejvyssi dovoleny, pro vyssi kmitodty by 



Obr. 4. Nahrada krystalu 6 MHz (901-3) 



Obr. 5. Jednoduchy prevodnik TTUV.28 
(901-5) 

navic bylo treba modifikovat ridict program. 
Pri nizsim kmitoctu by jiz mikroprocesor ne- 
stihl obslouzit prijem dat z poditace. 

Vyrobce dovoluje namisto krystalu zapojit 
i obvod podle obr. 4. Pri presnem vyladdni 
kmitoctu na 6 MHz by nemela byt funkce 
interfejsu narusena. Problemy by vdak moh- 
ly nastat s casovou a teplotni stabilitou. Toto 
resent' nebylo experimentalne overeno. 

Pro ty, kdo chteji interfejs vyuzit jako pre- 
vodnik na seriove rozhrani s napefovou 
urovni podle doporuceni CCITT V.28 (RS 
232C), je nutne jeste zapojeni vybavit pre- 
vodnikem TTL/V.28, napr. podle obr. 5. Jina 
resent prevodniku Ize najit v 131. Pfitom je 


nutno zapojeni jeste doplnit o zaporne napa- 
jeci napeti (Ize je ziskat napr. z tiskarny). 
Optimalni by samozrejme bylo napajeni 
+12 V, protoze vsak doporuceni V.28 defi- 
nuje.jako zakazanou oblast-3V az + 3V, Ize 
bez problemu pouzit napajeni 5V. 

Interfejs Ize napajet primo z pocitace na- 
petim ,+ 5V (vyrobce udava proudovou ,,re- 
zervu" zdroje vetsi nez 0,5 A), diky oddeie- 
nemu napajecimu zdroji nehrozi poskozeni 
pocitace ani pri nahodnem zkratu. 

Protoze originalni trinactipdlovy konektor 
je temer nesehnatelny (nejen u nas), je 
nutne tento konektor nahradit. Jako kontakty 
vyhovi napr. dutinky z rozebraneho konekto- 
ru CANON DB 25 (standard pro rozhrani 
V. 24) vlepene do desticky z organickeho 
skla s predvrtanymi otvory v, rastru 3,5 mm. 
Jeste lepsi je vsak zabudovat do pocitace 
napr. petikolikovy nf konektor (DIN), paralel- 
ne uvnitf pocitace propojeny na prtslusne 
spicky trinactipbloveho konektoru. Terrto ko¬ 
nektor pak Ize pouzivat i pro pfipojeni upra- 
veneho magnetofonu atd. Na strane tiskarny 
pouzijeme konektor podle typu tiskarny. 


Ri'dici program 

Obsah EPROM s ridicim programem pro 
jednocipovy mikropocitac je ve Vyptsu 1 (od 
adres nutno odecist offset 8000H), obsah 
upraveneho programu pro mikroprocesor 
8039 (zapojeni bez vnejsi RAM), je ve Vypi- 
su 2. 

Xazdy bajt z pocitade je pfijat rutinou pro 
zpracovani interruptu - je na adresach OAH 
az 40H. Po prijeti poveloveho bloku mikro¬ 
procesor zjisti, zda je oslovena tiskarna a po- _ ^ 
kud ano, vysle na pocitace prislusnou odpo- 































ved’ pres vyvod P26 a vycka na datovy blok. 
Ten je ukladan do RAM, pote se zjistl prlpad- 
ny vyskyt rldiclch posloupnosti pro interfejs 
(viz dale) a nakonec je blok prenesen bajt po 
bajtu na port PI, ktery tvori rozhrani CEN¬ 
TRONICS (porty 8048 jsou zakonceny budi- 
ci s otevrenym kolektorem a stradacem, coz 
je pro tento ucel vyhodne). Vyvod P24 mikro- 
procesoru se vyuziva pro vysllanl potvrzova- 
cich 1'mpulsu STB, vyvod TO pro pfijem 
signalu BUSY z rozhrani. Tyto dva signaly 
spolu s osmi datovymi budici tvori zakladnl 
a postacujlcl obvody rozhrani CENTRO¬ 
NICS. Je-li naprogramovano seriove vysila¬ 
ni, jsou bajty seriove vysllany pres vyvod 
P25 zadanou prenosovou rychlostl. Po vy- 
slanl celeho bloku interfejs oznaml pocltaci 
moznost pokracovat vyslanlm bajtu 43H na 
vyvod P26. Je-li uvnitr prijateho bloku nale- 
zen znak EOL, tj. 9BH, je nahrazen kombina- 
cTCR + LF (0DH + 0AH). EOLjetotiz oznace- 
nl konce logickeho radku pouzlvane pocltaci 
ATARI. Protoze pocltac doplnl blok obsahu- 


jlcl EOL samymi nulami az do 40 bajtu, jsou 
tyto nevyznamnd nuly interfejsem ignorova- 
ny. 

Mame-li k dispozici maticovou tiskarnu, 
k)er& ma sedm az devet jehlicek a ktera 
vyuziva posloupnost <ESC>K k prerazenl do 
grafickeho rezimu (napr. tiskarny EPSON 
a kompatiblinl, novejsl maticove tiskarny 
ROBOTRON atd.), muzeme vyuzlt dais! 
funkce interfejsu. Pri prljmu znaku s ASCII 
kodem 0 az 19H (0 az 31 dekadicky) umoz- 
nuje interfejs bud’ transparentnl prenos tech- 
to znaku (napr. ASCII znak 14H=CTRL-Nse 
pouzlva pro tisk jednoho radku zvetsenymi 
plsmeny), nebo prepne tiskarnu do graficke¬ 
ho rezimu a vytiskne priblizne stejny znak, 
jaky je zobrazen na stlnltku (ATARI pseudo- 
grafika). Kazdy znak je reprezentovan §esti 
bajty-tzn. zeje tisknou v matici 6x8, stejne 
jako alfanumericke znaky u tiskaren EP¬ 
SON, na rozdll od matice 8x8 na stlnltku. 
Kody pro graficke znaky jsou ulozeny ve tret! 
strance EPROM tak, ze na adresach 300H 


az 305H je sest bajtu pro znak s kodem 1H 
atd. Tuto tabulku Ize samozrejme pri pro- 
gramovanl EPROM predefinovat a vytvorit 
tak vlastnl znaky, napr. deskou abecedu 
s hacky a carkami. Spolu s moznost! vytvo- 
renl uzivatelske znakove sady, kterou po- 
skytuje pocltac ATARI, marne tak udinny 
prostredek napr. pro vytvorenl vlastnlho tex- 
toveho editoru s ceskou abecedou a s moz- 
nostl tisku. 

Pritom v grafickem rezimu je mozno pre- 
depsat, ze se znak ESCAPE (kod 1BH) 
tiskne jako graficky znak nebo se interpretu- 
je jako rldicl znak, coz umoznuje pouzlvat 
rldicl posloupnosti pro tiskarnu (napr. k pre¬ 
plan! druhu plsma). V transparentnlm rezi¬ 
mu je naopak mozno predepsat, ze interfejs 
vsechny znaky s ASCII kodem 0 az 19H 
nahradl znakem ~ (kod 7EH), pokud je 
transparentnl prenos npzadoucl. 

Pro flzenl interfejsu se vyuziva nekterych 
posloupnosti se znakem ESCAPE, ktere ne- 
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Vypis 2. Obsah ROM pro mikroprocesor 8039 (901-V2) 


_ _ Vypis 1. Obsah ROM pro mikroprocesory 8035, 8048, 8748 
54 (901-VI) 


jsou beznymi tiskarnami vyuzivany. Jejich Tab. 1. Prehled ndicich 
pfehled spolu s vyznamem je v tabulce 1 . posloupnosti pro int&r- 
Po zapnuti je interfejs inicializovan tak, ze fey's (901-T1) 
je transparentni pro vsechny znaky a vystup 
je na port T1, tj. rozhrani CENTRONICS. 

Chceme-li, aby vystup z interfejsu byl serio- 
vy rychlosti napr. 50 Bd, aby znaky s kodem 
mensim nez 20H byly tisknuty v grafickem 
rezimu vcetne znaku ESCAPE, a inverzni 
alfanumericke znaky maji byt tisknuty jako 
normalni (nejvyssi bit nastaven do 0), zada- 
me jako prvni prikaz po zapnuti pocitace: 

LPRINT „<ESC>r“; CHRS (1); 

„<ESC>j<ESC>d<ESC>g“ 

Chceme-li, aby interfejs pracoval v rezimu 
CENTRONICS, pricemz znaky s kodem niz¬ 
sim nez 20H maji byt nahrazeny vlnovkou 
a interfejs ma v tomto rezimu trvale zustat, 
zadarae po zapnuti: 

LPRINT „<ESC>r“; CHRS (0); 

„<ESC>n<ESC>c<ESC>z“ 

Konecne chceme-li, aby interfejs pracoval 
v rezimu CENTRONICS, pricemz znaky 
s kodem nizsim nez 20H maji byt interpreto¬ 
vany jako graficke a zaroven chceme mit 
moznost pouzivat ridici posloupnosti pro tis- 
karnu, tzn. ze ESCAPE nesmi byt interpreto- 
van jako graficky znak, zadame: 

LPRINT ,,<ESC>r“; CHRS (0); 

„<ESC>n<ESC>g“ 

Podobnych prikladu Ize samozrejme vymys- 
let mnohem vice. 

Pozn.: znak <ESC> (ESCAPE) dostaneme, 
stiskneme-li na pocitaci 2x za sebou klave- 
su ESC. 


Ing. Milan Kuchar, 739 44 Brusperk 932 

V AR A8/87 byl uverejnen popis interfejsu k magnetofonu pro ATARI 
800XL, ktery byl temer presnou kopii zapojeni specialmho firemniho 
magnetofonu XC12. Vzhledem k napajecimu napetf 5 V zde neni mozne 
bez problemu pouzit jakekoliv bezne dostupne operacm zesilovace. 
Napr. typy 741,748,1458 maji nejnizsf uroven na vystupu v nesymetric- 
kem zapojeni asi 2 V, coz je pro dane zapojeni nevyhovujici. Z tuzem- 
skych OZ je proto vhodne pouzit napr. typy MAB355,6,7 nebo 
MAC155,6,7. Dale je zapojeni pomgrne citlive na vyber soucastek 
v pasmovych propustich. Proto jsem vyvinul zapojeni interfejsu pracu^ 
jici na jinem principu - s fazovym zavesem. 


Zaverem bych chtel poznamenat, ze po- 
kud je mi znamo, nebyl dosud nikde zverej- 
nen podrobny popis komunikace pocitacu 
ATARI s periferiemi. Zde zverejneny popis je 
vysledkem experimentalni prace, analyzy 
prenosu pomoci datoveho analyzatoru a si- 
mulatoru a disassemblovani prislusnych ru¬ 
tin operacniho systemu. Proto nejsou prav- 
depodobne osetreny uplne vsechny mozne 
situace, ktere se pri prenosu mohou teoretic- 
ky vyskytnout a ktere nebylo mozno nasimu- 
lovat. Ze stejneho duvodu jsou interfejsem 
ignorovany zabezpecovaci souctove bajty. 
Pro toto reseni vsak mluvi praxe: Za zhruba 
pul roku provozu interfejsu nebyla zaregis- 
trovana ani jedna chyba pri prenosu i pri 
vysoke prenosove rychlosti, kteraje pocitaci 
ATARI pouzivana. 



fiidici 

posloupnost 

Hexa- 

decioalne 

Uastaveni interfejsu 

<ESC>r CTRL 

1BH, 72H, 00H 

. 

paralelni vystup z interfejsu 
(CENTRONICS) 

<ESC>r CTRL -A 

1BH,72H,01H 

seriovy vystup z interfejsu 50 Bd 

<ESC>r CTRL -B 

1BH,72H,02H 

■ 100 Bd 

<ESC>r CTRL -C 

1BH,72H,03H 

* 200 Bd 

<ESC>r CTRI, -D 

1BH,72H,04H 

" 300 Bd 

<ESC>r CTRL -E 

1BH,72H,05H 

" 600 Bd 

<ESC>r CTRL -F 

1BH,72H,06H 

■ 1200 Bd 

<ESC>j 

1BH,6AH 

nastaveni nejvyssiho bitu prenase- 
nych znaku do log.0 

<ESC>i 

1BH,69H 

transparentni prenos nejvyssiho 
bitu 

<ESC>d<ESC>c 

1BH"64H 

1BH,63H 

transparentni prenos vsech znaku 

<ESC>d<ESC>g 

1BH,64H 

1BH,67H 

vsechny znaky s kodem nizsim nez 

20H interpretovany jako graficke 
vcetn£<ESC> 

<ESC>n<ESCx: 

1BH,6EH 

1BH,63H 

vsechny znaky s kodem niZsim nez 

20H nahrazovany vlnovkou (ASCII 
kod 7EH) 

<ESC>n<ESC>g 

1BH,6EH 

1BH,67H 

vAechny znaky s kodem nizsim nez 

20H interpretovany jako graficke, 
<ESC> prenasen transparentne 

<ESC>z 

1BH,7AH 

zakaz interpretace ridicich pos¬ 
loupnosti z tdto tabulky, pouziva 
se pri vypisu pameti apod., aby 
nemohlo dojit k nezadoucimu pre- 
pnuti reiimu interfejsu nahodnym 
prijmem posloupnosti znaku stejne 
jako nektera ridici posloupnost 


Literatura 

[ 1 j Eichler, Grohmann: ATARI INTERN, 
DATA BECKER 1984. 

[ 2 ] Intel Component Data Catalog, Intel 
Corporation 1981. 

13] Hyan, J., T.: RS 232C - V. 24 Aft A10/ 
84. 


Seznam soucastek 


Mikroprocesor 

RAM 

EPROM 

Lktch 

Hradla 


MHB8048, MHB8035, MHB8748, 

18039 nebo ekvivalenty 

2x MHB2114, HM6116 nebo jina 

staticka RAM 

MHB8708C, 12716, 

nebo ekvivalenty 

MHB8282, SN74LS373 nebo jiny 

osmibitovy paralelni stradac 

MH7400 


Popis zapojeni 

Zaznam informace na kazety u systemu 
ATARI je provaden tak, ze logicka ,,1“ je 
zaznamenavana kmitoctem 5135 Hz, logic¬ 
ka ,,0“ kmitoctem 3995 Hz a data jsou 
vysilana rychlosti 600 Bd v serii s jednim 
nulovym start-bitem a jednim jednickovym 
stop-bitem bez parity. Zavadeci kmitocet je 
5135 Hz - tedy logicka ,,1“. Zapojeni inter¬ 
fejsu je na obr. 1 . 101a predzesiluje signal 
z magnetofonu, komparator 101b prevadi 
signal na obdelniky. Z jeho vystupu je signal 
veden pres C3 na vstup fazoveho kompara- 
toru PLL (14) (obvod 4046 kondenzatorovou 
vazbu povoluje). Vystup fazoveho kompara- 
toru II (13) je veden pres filtr (R9,R10,C5,C6) 
na vstup VCO (9) a dale z vnitfniho emitoro- 
veho sledovace obvodu 4046 (10) pres dolni 
propust (T14,R15,C7,C8) na T1, ktery fun- 
guje jako transformator impedance. Z emito- 
ru T1 je signal veden na napefovy kompara¬ 


tor s hysterezi - T2,T3, na jehoz vystupu je 
hotovy signal pro poCitac. Popis funkce fazo¬ 
veho zavesu neuvadim, zajemci jej mohou 
najit napr. v 12 j. 

Signal z pobitabe do magnetofonu je nut- 
no zeslabit a omezit vyssi harmonickb kmi- 
tobty - viz obr. 2. Trimrem R24 nastavujeme' 
vstupni napbti pro pouzity druh magnetofo¬ 
nu. 


Postup pri ozivovani 

Pri pouziti ovbrenych soucastek interfejs 
pracuje na prvni zapojeni. Svitiva dioda D1 
rozsvicenim signalizuje logickou ,,0“ a zhgs- 
nutim logickou ,,1“. 

Serizeni provedeme tak, ze nejdrive do 
interfejsu pustime z magnetofonu zavadeci 
signal nektereho programu (je pred kazdym 
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Obr. 1. Schema zapojeni interiejsu (907-1) 


programem a trva 20 s) a trimrem R12 
otadime tak, aby se svitiva dioda D1 pravd 
rozsvitila; tuto polohu trimru si oznadime. 
Pak pustime do interfejsu z magnetofonu 
program a trimrem R12 otadime na druhou 
stranu, az D1 pravd prestane blikat. Pote 
nastavime R12 doprostfed mezi tyto dve 
polohy a serizovani je ukondeno. Jestlize se 
nam nepodari najit tyto dve polohy trimru 
R12, je nutno zmenit odpor rezistoru R11 
nebo kapacitu kondenzatoru C4. 


Poznamky ke konstrukci 

Navrh plosnych spoju neuvadim, protoze 
zarizeni je tak jednoduche a male, ze je 
mozno je umistit primo do magnetofonu. 
Trimr R12 je vhodnd umistit pristupne - je 
jim mozno korigovat rozdilnost otacek pri 
nahravani programu porizenych na jinem 
magnetofonu. 
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Obr. 2. Uprava signalu pro magnetofon 
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Kondenzatory keramicke: 
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C4 ' 

3.3 nF 




05 

4.7 nF 




C6 

15 nF 

Rezistory TR 151: 


C7.C8 

10 nF 

R1 

ioo kn 


C10.C11 

33 nF 

R2.R4.R5.R16. 
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INTERFEJS ATARI 800 - ALFIGRAF 

. . j 

Ing. Pavel Rada, Mezihorska 56, 140 OO Praha 4 

Krokove reverzacm motory typu SMR 300-100/24, pripadne SMR 300- 
300/24 umoznuji stavbu relativne jednoduchych a pritom spolehlivych 
perifermch zarizeni k poci'tacum. Jednou z atraktivmch aplikacf jsou 
zapisovace, umoznuji'ri jak tisk, tak kresbu grafiky. 

Prikladem muze byt jak tovarm konstrukce zapisovace MINIGRAF 
0507, tak zapisovac ALFI sestaveny ze stavebnice Merkur podle navrhu 
ing. Dovala. 


Zapojeni interfejsu k temto typum zapiso- 
vacu bylo zatim publikovano predevdim pro 
pripojeni na pocitace kompatibilni se ZX 
Spectrum, kde se vyuZiva obvodu MHB 
8255. 

Osmibitove Atari maji jiz obvod vykonava- 
jici zakladni funkce interfejsu zabudovany 
uvnitr (PIA) a vyvedeny na dva ovladacove 
konektory. To umoznuje stavet znadne jed- 
noduddi konstrukce. Napriklad pakove ovla- 
dace pro Atari obsahuji jen spinaci kontakty. 

Programovd Ize pres ovladadove kontakty 
vyvest i osmibitovou sbernici .a umoznit tak 
snadne a jednotnd pripojeni periferii k cele 
typove radd osmibitovych Atari. 

Konstrukcni reseni navazujici na uspora- 
dlni zapisovace ALFI a vyuzivajici pro- 
gramoveho vybaveni ing. Jandika pro MI¬ 
NIGRAF bylo nazvano ALFIGRAF. Jeho za¬ 
pojeni je'na obr. 1. 


Soubor programu v systemu Turbo 2000 
pro zapisovace typu ALFIGRAF nebo Minig- 
raf, vcetne textoveho editoru, byl sestaven na 
magnetofonovou kazetu typu C60, kde za- 
plnuje temer celou jednu stranu a obsahuje 
souhrne pres 2x150 kB dat. 

Zapis na dodanou kazetu zajistuje i necle- 
num klubu, proti proplaceni slozenky (100 
Kcs), S.W. skupina klubu, a Ize jej objedna- 
vat zaslanim korespondencniho listku s oz- 
nacenim SYKO 007/89 na adresu: 

487. ZO SVAZARMU ATARI KLUB PRA¬ 
HA, post, prihradka 51, 100 00 Praha 10. 

Pro uvedene zapojeni je nezbytne pouzit 
naprogramovanou bipolarni pamdf PROM 
MH74188. Zpusob naprogramovani, pri kte- 
rdm je vyuzita jen mala cast kapacity pameti. 
je uveden na obr. 2, kde kridky oznaduji 
logickou hodnotu 1 pri zapojeni otevrenych 
kolektoru pres rezistor 680 12 na plus 5 V. 



Obr. 2. Obrazec plosnych spoju 
desky Y505 (906-2) 


Zapojeni tohoto typu je odolne proti zmd- 
ne napajecich napeti a variability soudastek. 
Po montazi proto postaci pedliva vizualni 
kontrola spr&vnosti zapojeni konektoru a ob¬ 
vodu na desce s plosnymi spoji a pri ozivovd- 
ni postadi mdrici pristoj typu Avomet. 

Deska na obr. 3 je jednostranna a plodnd 
spoje jsou vytvoreny ddlicimi carami. Sou- 
castky jsou pajeny ze strany spoju. Odpaddt 
tak vrtani otvoru, zvydi se prehiednost a va- 
riabilnost pro pouziti ruznych nahrad za za- 
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Obr. 3. Rozmistem soucastek na desce Y505 a celkove konstrukcniusporadani. Vsechny soucastky se pajejtze strany medi. Vyvody PROM 

c. 5, 6, 7 a 9 nezapojujte! Odehnete je do vzduchu! (906-3) 


kladni typy soubastek. Velke plochy mbdi 
pomahaji odvadet teplo, ktereho se uvolnuje 
nejvice z rezistoru i pri klidovem stavu moto- 
ru. 

Rozmbrove je deska urcena k zabudovani 
do ALFIGRAFU, ale pri zajistbni odvodu 
tepla ze stabilizatoru jinym zpusobem nez 


pres sloupek na viko kryjici elektroniku Ize 
zapojeni pouzit i pro jina konstrukcni reseni. 


Pouzite soucastky 

' R P 

Pouzite podklady 

s 

pro U se k>17 (14) V pouzit 

D1 

D2 


stabilizator MA7812(7815) 

D3 

Navod ze stavebnic Merkur - ALFI. 

T1 

KC635 h 21E >160 nebo Darlington 

D4 

N6vod k obsluze MINIGRAFu a jeho modulu 

T2 

KC635 (KC637. K4639) 

Tr 

Motory 

pro Atari. 

C 

2 iiF/70 V TE006 

Zpravodaje 487. ZO Svazarmu c. 1; 4; 

Cl. 

C3 220 uF/40 VTF010 

6/1989. 

C2 

100 tiF/6 V TE 981 



4,7 k!i i vice podle zesileni T1 
1 kll (v serii s D1 muze byt 
jen 510 12 
680 ! 2 i vice 
predradny odpor. pouzit 
pro U m > 15 V 

33 at 51 12/2 - 4 W volit die U,r 

LQ1402 zluta 
LQ1702 zelena 
KA262 nebo KYI 3 . . . 

KYI 32/80 

transformator min. 20 W 
SMR 300-100 RI/24 (r - ruda. 
f - fialova, b - bila, m - modra. 
z - zluta) 







































































AUTOMATIZOVANY EXPOZlCNY SYSTEM 


Ing. Ivan Hajda, Jasikova 15, 821 03 Bratislava Ing. Jan KaCmarik, nam. Lud. milieu 10, 821 09 Bratislava 


Nasledujuce zapojenie spolu s uvedenym programovym vybavemm znacne zlahcuje prace vo fotokomore 
pri ciernobielom pozitivnom procese. Je pripojene na mikropocitac ZX-Spectrum cez paralelny interfejs 
s MHB8255 (AR 6/85), pine nahradzuje osvitomer a spmacie hodiny. Na zaklade nameraneho jasu snimky 
vypocitava expozicnu dobu, meria teplotu vyvolavacieho kupel’a, resp. prepieracej vody. Vsetky operacie 
vratane spinania zvacsovacieho pristroja vykonava uzivater prostrednictvom klavesnice mikropocitaca 
a mikrospinaca. Spolupracu s obsluznym programom zlahcuju pomocne udaje na obrazovke, ktora je kvoli 
zatemneniu prikryta cervenou foliou. Uzi'vatel’ ma moznost’ pouzit vypocitanu dobu expozicie, pripadne ju 
opravit’ podl’a vlastneho uvazenia a opakovat’ expozi'ciu pri opakovanom zvacsovani tej istej sni'mky. 


Podstatnu cast zapojenia tvoria snimac 
intenzity osvetlenia a vykonovy spi'nac. 

Pouzitie zariadenia je programovym vyba- 
venim viazane na mikropocitac ZX-Spec¬ 
trum. Po prepisani programu je pouziteFne 
s FubovoCnym mikropocitacom, ktory je vy- 
baveny paralelnym interfejsom. 

Hlavne pouzite suciastky: E555, 
WK65061, 11NR15, MHB4011, impulzny 
transformator. 


Popis konstrukcie 

Schema zapojenia je na obr. 1, obrazec 
plosnych spojov na obr. 2 a zapojenie ko- 
nektorov k paralelnemu interfejsu a snima- 
com na obr. 4. 



Obr. 1. Schema zapojenia (911-1) 


Vykonovy spinac pre ovladanie zvacsova¬ 
cieho pristroja je riadeny bitom BO 
MHB8255. Cast merania teploty vyvojky 
resp. prepieracej kupele s 10 E555 je identic- 
ka s prevodnikom (AR 6/88). Startovaci im- 
pulz prevodu je generovany mikropocitacom 
cez bit C7 MHB8255, vystupny impulz pre- 
vodnika je pripojeny na bit AO. Termistor 
11NR15 je cez ohybny vodic pripojeny k bo- 
dom 1,2 zapojenia, aby sa dal umiestnit’ 
priamo do media, teplotu ktoreho meriame. 

Snimac jasu snimky s 101 pracuje na tom 
istom principe s tym, ze startovaci impulz 
prevodu nedava mikropocitac, ale obsluha 
stlacenim mikrospinaca pripojeneho k bo- 
dom 5,6 zapojenia. Samotny fotorezistor WK 
65061 je cez ohybny vodic pripojeny k bo- 
dom 3,4. Je umiestneny spolu s mikrospina- 
com na jednoduchom drzadle (celok v d’al- 
somtexte nazyvamesondou). Obsluha takto 
moze umiestnit fotoodpor do zelaneho 
miesta exponovanej snimky (ako pri osvito- 
mere) a mikrospinacom odstartovat prevod. 
U oboch snimacov je prevod 16-bitovy 
s ochranou proti preplneniu pocitadla. 


Popis obsluhy 

Ovladanie AES zabezpecuje program 
v jazyku BASIC (Vypis 1) vyuzivajuci spomi- 
nane ' snimace pomocou podprogramu 
v strojovom kode (Vypis 2). Vykonovy spi¬ 
nac je riadeny instrukciou OUT. 

Po spusteni program nuka uzivatefovi 
5 moznosti, ktore sa volia stlacenim tychto 
klavesov: 


“t“- expozicny test: tento je treba vyko- 
nat, ak chce uzivater pouzivat au- 
tomaticke urcovanie doby expozi- 
cie (zmienime sa o nom neskor), 

“k“- zmena expozicnej konstanty: tuto 
uzivater vykona ak sa zmenia pod- 
mienky vyvolavania resp. podFa 
svojho uvazenia (o tejto moznosti 
sa tiez zmienime neskor). 

“e“- skok do expozicneho bloku, ktory je 
jadrom prace s AES. 

“f“- meranie teploty vyvojky resp. pre- 
pieracieho kupeFa. Automaticky se 
zmeria a zobrazi prislusna teplota 
s presnost’ou na 0,1 °C. 

“c“- podprogram na ciachovanie termi- 
stora. Toto ciachovanie vykoname 
hned’ pri prvom pouziti AES, pricom 
namerane konstanty sa ulozia na 
pasku za samotny obsluzny pro¬ 
gram. Pri d’alsom pouzivani uz ne- 
treba teplomer ciachovat, prislusne 
konstanty sa nahraju z pasky. 

Po vofbe expozicneho bloku sa zobrazi 

“menu" ponukajuce tieto moznosti: 

“Z“- zadanie pozadovanej doby expozi- 
cie v sekundach z klavesnice. 

“B“- meranie bodovym snimacom. Pri 
zvoleni tejto cinnosti sa predpokla- 


da, ze v rame zvacsovacieho pri¬ 
stroja je pripraveny negativ snimky. 
Automaticky sa zapne zvacsovaci 
pristroj. UzivateF si vyberie FubovoF- 
ny bod snimky a zada cez klavesni- 
cu aky stupen scernania ma mat 
pozitiv v tomto mieste. Stupen scer¬ 
nania sa voli podFa stupnice sedi, 
o ktorej sa zmienime neskor. Potom 
polozi sondu na zvolene miesto 
a mikrospinacom odstartuje mera¬ 
nie. Po skonceni prevodu sa auto¬ 
maticky vypne zvacsovaci pristroj, 
vypocita a zobrazi sa doba expozi- 
cie. 

“E‘‘- expozicia. Do zvacsovacieho ramu 
sa zalozi fotocitlivy papier. Po stla- 
ceni klavesu “e“ sa zapne zvacso¬ 
vaci pristroj na dobu, ktora zodpo- 
veda naposledy zadanej alebo vy- 
pocitanej dobe expozicie. Opatov- 
nym stlacenim klavesu mozno zo- 
pakovat’ expoziciu toho isteho 
snimku niekoFko krat. 

“1/0“- zapnutie a vypnutie zvacsovacieho 
pristroja prostrednictvom klavesni¬ 
ce. Tuto moznost voli uzivatef pri 
zaostrovani snimku, hFadani vyre- 
zu, atd'. 

Teraz sa vrat'me k expozicnemu testu. Je 
nevyhnutny, lebo do urcovania doby expozi¬ 
cie treba zahrnut aj vlastnosti vyvojky ako 
i emulzie pouzivaneho fotopapiera. K expo- 
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Obr. 2. Obrazec plosnych spojov na doske Y506 (911-2) 



zicnemu testu je nevyhnutny negativ stupni- 
ce sedi, ktory sa da Tahko zhotovif a to 
postupnym zakryvanim fotopapiera pod za- 
pnutym zvacsovaci'm pri'strojom. Osvedcila 
sa nam stupnica s 10 pruzkami, pricom 
krajne pruzky su uplne cierny a biely. Jej 
— odfotemm ziskame pozadovany negativ 
stupnice sedi. Predtym nez zacneme praco- 
vaf s AES, zhotovi'me pozitiv tohoto obrazca 
na konkretnonrtype papiera a vo vyvojke, 
ktore budeme pouzivaf. Dobu expozicie 
obrazca zadame ako expozicnu konstantu 
v expozicnom teste. Bez toho, aby sme 
menili clnove cislo, postupne zmeriame son- 
dou intenzitu vsetkych 10 prgzkov, tak ako to 
pokyny na obrazovke pri expozicnom teste 
vyzaduju, cim je test ukonceny. Ak by napr. 
vplyvom vycerpania vyvojky dochadzalo 
k odchylkam, netreba expozicny test opako- 
vaf, ale da sa zmenif expozicna konstanta, 
ako sme sa zmienili uz skor. Cela cinnost’ 
s AES je uzivatefovi jasna z pokynov zobra- 
zovanych na obrazovke. 

Este k snimacom. Kondenzator Cl urcuje 
rozsah snimaca intenzity osvetlenia. Jeho 
presna kapacita je viazana na urcity typ 
zvacsovacieho pristroja so svojou svietivos- 
fou, ako i na typ a vyrobne odchylky fotore- 
zistoru. Nelinearitu snimaca osvetlenia sme 
aproximovali 5 usekmi paraboly a nelinearitu 
termistora 10 usekmi paraboly v rozsahu -5 
az 100 °C. Cervena celofanova folia drzi na 
obrazovke televi'zora sama, s vyuzitim jej 
elektrostatickeho naboja. 

AES sa ukazal byf uzitocnym pomocni- 
kom setriacim cas a urahcujucim pracu vo 
fotokomore. 


Zoznam 

pouzitych suciastok 

101,2 

E555 

103 

MHB4011 

TRK 

KT207/600 

T1.T2 

KC509 

T3 

KFY16 

T4 

KFY46 

RT 

11NR15 

RE 

WK65061 

Cl 

1 uF (vhodny je tantalovy) 

C2 

680 nF (vhodny je tantalovy) 


□ 

1 

□ 

2 

□ 

3 

(=□!=□ □ 

4 5 6 

RT 

Re 


*5 y MS MS 


1 - RT 


4 - 4 5 V 


2 - RE 


5 - MS 


3- 


6-MS 


cn 3 □ 5 [m 

2 4 6 

7 1—I 9 1 l 77 l 1 
8 10 12 

’ J_ C7 AO 

_L *5 V 

*BO 

1 A7 

7 - zem 

2 - zem 

8 - 

3- C7 

9- 

4 - 

10 - BO 

5 - AO 

11-4 5 V 

6 - 

12- 


Obr. 4. Zapojenie konektorov (911-4) 


Vypis 1. Ovladaci program v BASICu 
(911-VI) 




C3.C4 

47 nF TK 783 

C5 

68 nF TK 783 

C6 

150 nF TK 782 

C7,C8 

200 uF TE 986 

C9 

10 nF TK 783 

R1 

7,5 k£2 

R2 

12 k£2 

R3 

3,3 k£2 

R4 

22 kQ 

R5 

1,2 k£2 vsetky 

R6 

11 kt2 TR 212 

R7 

4,7 k£2 

R8 

8,2 kQ 

R9 

1 k£2 

RIO 

270 Q 

R11 

27 £2 

MS 

mikrospinac (Tesla Jlhlava) 

WN 55900 

Tr 

impulzny transformator o 0 20 mm, 
feritovy hrncek typ 505250/HI2, pri- 
mar 20 z 0 0,5 mm, sekundar 50 
z o 0 0,2 mm. 

K1.K2 

konektory WK46244. WK46206 


51£> REM i.o ing. Ivan HE-JOh 
5id REM to inq.Jan KhCMhRIK 
COO REM faH8iEggr«a 
t.dO POKE 23609,80: CLEhR 49999 
&2S LfcT ex=0; PAPER 0: INK 7: B 
ORDER O 

030 OUT 127,144; REM Riadiac* a 
i.ovo 8255 

§40 DIM * (4,21) : DIM y(21) 

65-0 PRINT hT 1 u . 0 : " h u t. r, ri, a t i z o v a 
ny expozicny system" 

6*60 PRINT hT dO ,25: 11 iU 1986" ' Ph 
USE 0 ' 

670 CL8 : PRINT hT 16,3;"Je ter 
rh i s \ o f o c i a cho v a n y ?" ; hT 20,23; " 

ci /n " 

680 IF INKEY$="n" THEN CL8 : jn 
TO 700 

690 IF INKEY$="a" THEN CLS : PR 
INT AT 16,5" z a p n i m a an e t o f o n " ; 
LOAD Tfi" DATA fii $ <) : GO TO 700 
695 GO TO 680 
700 REM 


50 FOR a=50000 TO 50054 
730 READ n 
740 POKE a,n 
750 NEXT a’ 

760 DATA 243,1,0,0,219.31,23.48 
,251,3,4,40,3,5,219.31.23.56.246 
,251,201,1,0,0,251,201: REM tep I. 

770 DATA 243.1,0,0,62,0.211.95, 
62,128,211,95,3,4,40,3,5,219,31, 
31,56,246,251,201,1.0,0,251,201; 



310 FOR i=l TO 6 

320 READ a i. i ,i . b ( i ) , C ( i ) 

330 NEXT i 

^840 DATA 1.89836-5,-.027388,11. 

850 DATA 7.51566-7,-.0026034.2. 

860 DAT A 2.366856-3.-.08025043, 
.60945 

870 DATA 9.6497e-10,-.000021732 
, . 13797 

880 C'AT A 8:. 69456 -11, -2.15766 -6 , 
■ 0353:94 

890 DATA 8.26956-12 .-7 . F.i0Ae-7 . 
.019243 

1000 REM im WM ICKTP] 

1010 CLS ; PRINT TAB 12; "M E N IJ 


1030 PRINT 

1048 PRINT 
icne.j do by" 
105O PRINT 

1052 PRINT 


"T - Expozicny test 
" K - K o r e k c i a e x p o z 
"E - Expozicny bloc. 
" F - M e r a n i e t e p i. o t 


\ 


















1054. PRINT ' ' "C - 
r»i 5 to ra” 

1060 PAUSE O 

1070 >BEEP 0.02.12 
1100 IF INKEY$="e" 

00 

1110 IF INKEY$ = " t" 

00 

1130 IF INKEY$="K" 

00 

1132 IF INKEY$="f" 

00 

1134 IF INKEY$ = "C 
500 

1140 GO TO 1060 
1230 PAUS E O 

1490 REN__ 

1500 CL3 : PRINT "Expozicny test 


;iacho van i e te 

THEN GO TO 20 
THEN GO TO 15 
THEN GO TO 17 
THEN GO TO 30 
• THEN GO TO 3 


" Op t i hi a t na 3 o ba e x p o ; 
vacieho sn i m hu "; 11e 


1505 INPUT 
icie testo- 

5 I 

1510 PR I NT FIT ,10,2; "Zo s n i u a,_i S K a 
i. u s e d i bo d o v y m s n 

i in a c o hi 1 ‘ 

1520 LET pp =10: REM 10 Stupnov 
■ 3 £ d i 

1530 DIM e(pp) 

1540 OUT 631: REM Zapnutie ZV6C 

sovacieho p ristro .ia 

1550 FOR i=l TO PP 

1560 PRINT AT 13.12; i ; " . Sti.pec" 

1570 LET be =USR 50000: PRINT FIT 

21.25;be;” 

1530 IF be =0 THEN GO TO 1500 
1590 GO SUB 2700: REM Kv 3d ratio*, 
a a p r o x i in a e i a 
lc.00 LET e(i)=jas 
1610 NEXT i 
1630 GO T O 1060 
1690 REM 

1700 CLS : PRINT "KoreKcia expoz 
i one ..i do bM " 

1710 INPUT "Modi f i no v ana opt', do 
ba expoziciesKusobneho sni»Ku 
1t e s t 

1720 GO TO 1000 
2000 REM 
2010 REM 

2020 CLS : PRINT " EXPOZIC 
N E M E N U' 


2030 PRINT 
xpo zieie " 
2040 PRINT - 
hi s n i h i a e o n ‘' 
2060 PRINT - 

2070 PRINT ' 
. p r i s t r o ..i a 11 
2030 PRINT " 
. p r i £ t r o ja " 
2030 PRINT ■ 


- zadanie do by e 

- hie ran is bodovy 

- expozieia (Tex 

- zapnutie zvets 

- v yp nutie zvets 


"M - navrat do menu 


THEN GO TO 2< 
THEN GO TO 25 


210O PAUSE 0 
2105 BEEP 0.02.12 
2110 IF INKEY $ *"Z' 

00 

2120 IF INKEY$ = "b' 

0O 

2130 IF INKEY$="9" THEN GO TO 26 
00 

2140 IF INKEY$="1" THEN OUT 63.1 
: GO TO 2100 

2150 IF INKEY $ ="0" THEN OUT 63.0 
GO Tu 2100 

2170 IF INKEY$ = "e" THEN GO TO 23 
00 

2130 IF INKEY$ = "hi" THEN GO TO 10 
00 

2190 GO TO 2100 

also rem 

2200 CLS PRINT "Zadavanie doby 
expozicie” 

221© input "Tex=";ex 
2220 GO TO 2000 

2300 rem Ecraromrei 

2305 IF ex=0 THEN GO TO 2000 
2310 CLS : PRINT "Expozieia” 

2320 > POKE 23673,0: POKE 23672,0 
2330 OUT 63.1 

2360 LET ex 1= (256*PEEK 23673+PEE 
K 23672)/50 

2365 IF ex-ex 1<0 THEN GO TO 2390 
2370 PRINT FIT 10,12, eX-ex 1; " 

2330 GO TO 2360 
2390 OUT 63,0 
2400 GO TO 20 00 

2499 REM 

gaffiswaTi 

2500 CLS : PRINT "Heranie bodovy 
hi in i hi a cohi " 

2510 INPUT "Zada ,i ziadany stupen 
£ce mania hi e r a n e h o hi i e s t a "; £ s 

252 0 P RI NT AT i q , 3; "Z v o t hi e r a n e 
hi i e s t o , a 1 .1 i v u j sn 

i hi a c " 

2530 OUT 63,1: REM Zapnutie zvec 
s o v a e i e h o p r i s t r o . i a 
2540 LET be=USR 50000 
2545 OUi 63,0: REM Uypnutie zvec 
sova eieho pr js tro ja 
2550 IF be = 0 THEN CLS : PRINT FL 
ASH l; h i 10,1" In t enz i ta m i_mo r o 
z £ a hu _ s n i hi a e a " : pause 0: BtEP .1 
,12: UO TO «£000 
25c.0 GO- SUB i700 
2570 LET e x =e (s s c)/j as*ttes t 
2330 GO TO 200 0 
2700 Rt-M 


Kvadra 1 1 cK.a aprox_i wac 1 a 
revodoYe j' cHa Fa t t e'r'Is t itc 


2710 IF be<730 THEN LET in=l: 
TO 2770 

2720 IF be<1810 THEN LET in=2: 
O TO 2770 

2730 IF be<4290 THEN LET in=3: 
60 O TO 2770 


,U 


2740 IF be<11330 THEN LET in=4: 

G U T • J 2770 

2758 IF be<29300 THEN LET in=5: 
GO TO 2770 
2760 LET in=6 

2770 LET j a £ =a (in) * b e * b e + b(in) 4 b 
c + e (i n) > 

2780 RETURN 

3000 rem 

3005 LET a $ = "flK t i vu j snihi ae tepl 

o tu " 

30l0 CLS : PRINT AT 16.5; FLASH 
1; a $ 

3020 PRINT AT 20,5;"M - navrat d 
o menu" 

3030 IF INKEY$ = "»•■ THEN GO TO 10 
00 

3040 LET t£=USR 50026 
3050 IF ts=0 THEN GO TO 3010 
3055 GO SUB 3180: REM Zaradenie 
do i -1eh.o i nter va tu mcrania. 

3060 LET t e =hi (2 , i > 41 st 2 + hi (3 , i ) 4t 
£ +hi (4 , i ) 

3070 PRINT AT 16,5;" 

3030 PRINT AT 10,8;"Teptot a =”; t e 
; " ' C" ; " 

309O GO TO 3030 

3100 IF t£ <hi (1.1) OR t£ >m (1.21) 
THEN PRINT AT 0,0; FLASH l,"Tept 
o t a p r e K r o c i t a e i a e K o v a n y 
r 0 Z £ .a h ! " : GO TO 3120 

3110 PRINT AT 0.2." 


3120 IF tS :>h. (1,11) THEN GO TO 31 
90 

3130 IF t £ >rn (1.7) THEN GO TO 317 
0 

3140 IF tS > = hi (1.1) AND ts<=hi(l,3 
i=l: RETURN 
> In (1,3) AND t £ < =hi (1,5 ) 


3570 GO SUB 3800: REH 
sustavy tin. rovnic C 
P r a v id to in. 

3580 NEXT i 

3590 SAUE "fii" DATA hi $ 

3595 GO TO 1000 

3600 LE l d =hi 11, d ) 4h) (1 

) 4hi ( 1 . d ) t 2+l(i (1 , p ) 4hi ( 1 

) 4hi (1 , t ) t2-ffi (1 , t ) 4hi (1 

) 4hi (1 , d ) t2 

3610 LET d l=y (d ) 4hi (1, 

(1, d ) 12 + y (P ) 4 hi (1, t) h 2 
) 12-y (t)4rn (1,p)12-y(p 
3615 LET d2=y (d ) 4hi (1, 
i1, d ) 12 +u tp ) 4m (1 . t) 12 
) t2-y (t) 4hi (1, p ) 12-y (p 
3620 LET d 3=y (t) 4hi (1 , 
+ y (d ) 4 hi (1, p ) 4 hi ( 1 , t) t 2 
) 4 hi (1, d ) 12-y ( P ) 4 hi (1 , d 
y (d ) 4 hi (1 , t i 4 hi (1 . P ) t 2 - 
4 hi ( 1 , d ) t 2 

3630 LE I hi (2, i ) =d 1/d 
3640 LET hi (3, i ) =d2/d 
3650 LET m (4 . i) =d3/d 
3660 RETURN 


R i e sen i e 
r a hi e r o v y m 


, p ) ra+hi ( i, t 
, t) 12 -hi (i, d 
, p ) t 2 -\m (1, p 

p ) t 2+M ( t ) 4fii 

-y < d ) 4hi ( 1 , t 

) 4 hi (1 . d) T 2 
p ) t 2+y (t) 4fii 

-y (d ) 4hi ( 1 , t 
) 4 hi (1, d) t 2 
d ) 4hi (1 . P ) ra 

+y (p) *iii 11 , t 

) 4 m (i, t) | 2 - 

y it) 4 m (1, p ) 


Vypis 2. Rutina pre obsluhu snimacov a pre- 
vodnika (911-V2) 


) THEN LET 
i'150 IF t 


THEN LET i=2: RETURN 


S160 IF ts 


THEN LET 1 = 


> In (1,5) AND t £ < = hi (1,7) 


3170 IF t £ 


RETURN 


m (1,7) AND t£ <=hi (1,■: 


THEN LET i=4: RETURN 
3 ISO IF t S > hi (1 . 9) AND t S < = Hi (1.11 
) THEN LET i=5: RETURN 
3190 IF t£>m(1.15) THEN GO TO 32 
20 

320© IF t £ > =Ki (1,11) AND t £ < sth (1 . 
13) THEN LET i=6: RETURN 
3210 > IF t £ > hi (1,13) AND t £ < =hi (1,1 
5) THEN LET i=7: RETURN 
3220 IF t£ >m (1,15> AND t £ < = hi (1,1 
7) THEN LET i=8: RETURN 
3230 IF t£ >hi (1.17) AND t s < =hi (1 , 1 
9) THEN LET i=9: RETURN 
3240 LET 1=101 RETURN 
55O0 REH 


3502 CLS 

3505 PRINT AT 7,6, -INVERSE l;"Ci 

a c h ov a nie ter m i s t or a“ 

3510 FOR i=l TO 21: PRINT AT 10, 
7;"Me r a nie eist o:";i: INPUT "Te p 
t/o t a = ”; y (i) 

3520 LET m (1 . i ) =IJSR 50026 
3530 NEXT i 

3540 CLS : PRINT AT 10,2; F.LA5H 
1;"Prebieha v y p o e e t a pr ox i m a eie" 
3550 FOR i=l TO 10 

3560 LET P =2 4i-1: LET d=24i: LET 
t = 2 4i+1 


10 

£0. 

30 

40 

45 

50 

6Q 

70 

30 

90 

100 

110 

120 

ISO 

140 

150 

160 

170 

160 

190 

200 

210 

220 

230 

240 

250 

260 

270 

230 

290 

30© 

310 

320 

330 

340 

350 

360 

370 

330 

390 


Ru t i n a p r £ o bs i. u h u 
sn i tiia cov a p revodn i Ka 


i.iRG 


50000 


DI 

LD BC.O0000 
LC354 IN ft,(air) 
RLh 

•J R N L*, L. L 5 4 
LC359 INC BC 
INC B 

■JR Z t Lc365- 
DEC B 
IN ft, (aIF) 

RLft 

■JR C . LC359 

El 

RET 

LC365 LD BC.00000 
El 
RET 
DI 

LD BC,a©000 
LD ft . tt00 
OUT taSF) .H 

li> ft ,as 0 

OUT taSF),ft 
LC376 INC BC 
INC B 

■JR Z , LC-332 
DEC B 
IN ft . (aiF) 

RRft 

■JR C, LC376 

El 

RET 

LC382 LD BC.B0000 
El , 

RET 
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Clanek popisuje vyuziti souradnicoveho zapisovace MINIGRAF ve 
spojeni s pocftacem ZX Spectrum. Minigraf je vystupm graficka jednot- 
ka, pracujici v soustave pravouhlych souradnic nezavisle ovladanych 
vnejsfm signalem. Pouzitim MINIGRAFu ziskame periferii, vhodnou 
napr. ke kresleni grafu, tabulek, pnpadne obrazku. MINIGRAF vsak 
nenahrazuje tiskarnu, predevsim z duvodu male rychlostl kresleni. Prl 
soucasnem nedostatku podobnych zanzenf na nasem trhu muze pfi- 
nest pouziti MINIGRAFu urcite ozlveni vaseho maleho vypocetnfho 
system u. 


Souradnicovy zapisovac MINIGRAF kres- 
II v pravouhlych souradnicich na bezny kan- 
celarsky papir formatu A4, pnpadne na svi- 
tek maximalni sire 210 mm. Pisatko je kulic- 
kovy fix nebo jine bezne dostupne pero. 
Posuv pisatka ve smeru osy X a posuv 
papiru ve smeru osy Y zajisfuji krokove 
motorky. Maximalni rychlost kresleni je 80 
mm/s, delka kroku je 0,125 mm. MINIGRAF 


je ovladan pres jednoduche jednosmerne 
rozhrani. Dvema trojicemi vodicu, oznace- 
nych XI, X2, X4 a Y1, Y2, Y4 jsou ovladany 
faze krokovych motorku. Sedmy vodic o'Jda- 
da spousteni pisatka. Pohyb motorku a smer 
pohybu je rizen rostouci nebo klesajici binar- 
ni posloupnosti prislusne trojice bitu. MINI¬ 
GRAF nedava zadne zpetne hlaseni, proto 
je nutno zajistit casove prodlevy mezi zme- 







KROK 

VSTUP 


X4(Y4) 

X2(Y2) 

X1(Y1) 

0 

L 

L 

L 

1 

L 

L 

B 

2 

L 

H 

L 

3 

L 

H 

H 

4 

H 

L 

L 

5 

H 

L 

H 

6 

H 

H 

L 

7 

H 

H 

H 

8 

L 

L 

L 

9 

L 

L 

H 

10 

L 

H 

L 

11 

L 

H 

H 

12 

H 

L 

L 

13 

H 

L 

H 

14 

H 

H 
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Tab. 1 . Posloupnost kroku (904-T1) 


nami bindrni kombinace programove. Po¬ 
sloupnost jednotlivych kroku je patrna z ta- 
bulky 6. 1. Pri rostoud posloupnosti (napr. 
kroky 7,8,9) se pohybuje pis&tko i papir 
v kladndm smdru os (tj. zleva doprava a ze- 
zadu dopredu). Jeden krok znamena posun 
papiru nebo pisatka o 0,125 mm. Makimalni 
kmitocet krokovani je 400 Hz. Pri reverzaci je 
nutna prodleva 10 ms a po sklopeni nebo 
zdvizeni pisatka je nutna prodleva 50 ms. 
Pisatko je spoudtdno urovni log.1. 

Z uvedeneho vyplyva, ze pro pripojeni 
MINIGRAFu k poditadi musime pouzit jednu 
osmibitovou branu (jeden bit zustane nevyu- 



XI X2 Xi Y1 Y2 Y4 P OV 

10 9 8 4 3 2 5 1,11 

(cislo spicky konektoru MINIGRAFU) 

Obr. 1. Propojeni interfejsu s Minigrafem (na 
miste odddlovacich zesilovadu Ize pouzit 
napr. 2x 7407, 1x3212, 2x 3216, lx 8282 
ap.) (904-1) 


zit). Pro pripojeni MINIGRAFu k poditadi ZX 
Spectrum muzeme s vyhodou pouzit inter- 
fejs s MHB8255A podle AR 6.6, 1985, 
S. 217. 

Pri propojeni jsem pro jednoduSsi pro¬ 
gramove reseni vyuzil vdechny tri brany ob- 
vodu 8255. Kazdy ovladaci bit ma v MINI¬ 
GRAFu udavanou log. zatez 5, proto je 
vhodne vdechny signaly zesilit. Propojeni 
interfejsu s MINIGRAFem je na obr. 1. Po 
propojeni a zadani nasledujiciho jednodu- 
cheho programu by se mel motor pro posun 
papiru tocit. 

10 OUT127,128 
20 FOR A=0 TO 15 
30 OUT 63,A 
40 NEXT A 
50 GOTO 20 


Zamdnime-li vystup 63 za 31, mdl by se 
todt motor pro posun pisatka. Instrukci OUT 
95, 255 spustime pisatko. Tim je propojeni 
odzkoudeno a muieme pristoupit k pro- 
gramovemu reseni. 

Ovlddani MINIGRAFu v jazyce BASIC je 
porriale, a proto je vhodne psat programy ve 
strojovem kodu. Uvadim priklad programu, 
ktery provadi kopii obrazovky na souradni- 
covem zapisovad. Program je ulozen na 
konci pamdti za RAMTOP. Program nahra- 
jeme napr. takto: CLEAR 65043 : LOAD “ “ 
CODE 65044 : POKE 65372, X : POKE 
65414, X. Promdnnd X muze nabyvat hod- 
not od 1 do 8 a urcuje rozmer kopie. Po 
nahrani je nastaveno X = 4. Program spusti¬ 
me pfikazem RANDOMIZE USR 65044. Po 
spusteni programu nastavime rudne pisatko 
do vychoziho bodu pri levem okraji na zad4t- 
-ku papiru. K rudnimu ovlad&ni posuvu piseit- 
ka a papiru slouzi tladitka se dipkami pro 
ovlddani kurzoru. 

Kresleni spustime tladtkem EDIT, preru- 
deni kresleni a ndvrat z programu zpusobi 
stisk tladitka CAPS LOCK. Navrat pred 
spudtdnim kresleni je mozny tladitkem DE¬ 
LETE. Po ukondeni kresby se automaticky 
provede navrat z programu. 

Pro vypis programu neni pro svou poma- 
lost zapisovad vhodny, ale v nouzi poslouzi 
take. Pro kresleni je naopak velmi vhodny, 
umozftuje jemnejsi kresbu nez obrazovka 
nebo tiskarna. 


Literatura 

1 | Soldan,J.: Interfejs s MHB8255. AR/A, 
d. 6,1985, s. 217-219. 

21 MINIGRAF 0507, navod k obsluze, Arit- 
ma 1986. 
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Standardm programatory pameti EPROM nejsou pro vet§inu amateru 
dostupne. Pro male pameti se nejcasteji amatersky vyrabeji „rucni“ 
programatory, pro vet§i pameti je nutno programovat pomoci n'dici'ho 
mikropocitace. Uvedeme popis programovani pameti EPROM 27128 
(16 kB) a 27256 (32 kB) s vyuzitim pocitace ATARI rady XL nebo XE. 
Popsany postup byl pouzit pri overeni funkce programoveho modulu 
(cartridge) s jazyky BASIC XE - MAC/65. 


Vypis 1 . Strojovy kdd programu Zapisovad 
(904-V1) 
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Technicke reseni 

Adresy, data i ridici signaly se privadeji na 
pam§f EPROM pres paralelni interfejs 
s MHB 8255A, jehoz popis a schema jsou 
uvedeny v 11 |. Paralelni interfejs je zapojen 
k podtaci ATARI v konektoru pro programo- 
vy modul a na joystickove porty. K paralelni- 
mu interfejsu je pfipojen pripravek s objim- 
kou pro pamet EPROM. Schema zapojeni 
pripravku je na obr. 1 . Adresy prpgramova- 
nd EPROM A0 az A7 jsou pripojeny na port 
PB obvodu 8255 A, adresy A8 az A13 na 
dast portu PC. Pri programovani EPROM 32 
kB je pres prepinade a invertor privaddna na 
vyvod dislo 27 (kde je adresa A14) bud’ 
uroven log.O (programovani v rozmezi $0 az 
$3FFF) nebo uroven log.1 (programovdni 
v rozmezi $4000 az $7FFF). Pri programo¬ 
vani EPROM 16 kB se tento vyvod pouzivd 
jako PGMn. Data jsou vyvedena z portu PA 


na odddlovaci obvod MHB 8286. Smdr pru- 
chodu dat timto obvodem Ize ovlddat signa- 
lem Rn obvodu 8255A nebo signalem OEn 
programovane EPROM, fiidici vstupy 
EPROM CEn, OEn jsou ovl&dany bity PC7, 
PC6. Pri programovani EPROM 32 kB jsou 
tyto signaly kombinovany s latchovanou 
adresou A5, ktera pusobi jako hradlovy sig¬ 
nal. Pri programovani EPROM 16 kB latcho- 
vana adresa A5 vytvari programovaci impuls 
pro PGMn. V zapojeni nejsou zakresleny 
privody napajecich napeti U c c, L/ pp a prislud- 
ne blokovaci kondenzatory (paralelnd 
100 nF a 5fiF). Provozni hodnoty U C c i U pp 
jsou +5 V. Pri programovani je U C c - 
= 6 V a Upp = 12,5 V. U nekterych EPROM 
27128 je Upp = 21 V (neuvadime rozmezi 
napeti). 

Obvod 74LS00 se pouziva jako invertor 
a odddlovaci stupen. Pri programovani 
EPROM 27256 pusobi rovndz jako hradlo 
pro signaly rizene CEn a OEn. 
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Obr. 1. Schema phpravku k programovani 
EPROM 27256 a 27128 (915-1) 


Programove resem 

Algoritmy programovani pameti EPROM 
vcetne vyvojovych diagramu jsou uvedeny 
v katalogu firmy Intel. Pouzivame algoritmus 
nazyvany ,,inteligent“. Programuje se mili- 
sekundovymi impulsy; po kazdem z nich 
nasleduje verifikace zapsaneho bajtu. Po- 
kud byl bajt zapsan spravnS, programuje se 
zaverecnym impulsem (,,overimpulsem“). 
Delka tohoto impulsu je trojnasobkem celko- 
ve delky vsech milisekundovych impulsu po- 
trebnych k zapsani tohoto bajtu. 

Jestlize se programovany bajt nezapsal 
ani po 25 impulsech delky 1 ms, je ohlasena 
chyba. Po zapsani vsech bajtu programu do 
pameti EPROM se provede verifikace cele- 
ho programovaneho useku pfi provoznich 
hodnotach napeti. 

Hlavni program je vypracovan v ASSEM- 
BLERU CPU 6502 a je ulozen od adresy 
$8000. Je volan obsluznym programem 
v BASIC. Programy jsou uvedeny ve Vypi- 
su 1 a Vypisu 2. 


Ovladani obou programu 

RUN + RETURN 

Start .programu. Na obrazovce se zobrazi 
text; 

„ Programovani 16/32 kB EPROM (zadej 16 
nebo 32)... ?“ 

Po zadani pozadovane hodnoty a stisku 
klavesy RETURN se na displeji zobrazi text 
„Adresa EPROM, od ktere se zacina pro- 
gramovat... ?“. 

Na tuto vyzvu ulozime prislusnou adresu 
(decimalne) a stiskneme RETURN. Na dis¬ 
pleji uvidime 

,,Adresa RAM, kde zacinaji data pro pro¬ 
gramovani EPROM.. . ?“. 

Zadame adresu zacatku dat (decimalne) 
a stiskneme RETURN. 


Na displeji se zobrazi dalsi text: 

„Adresa RAM, kde konci data pro programo¬ 
vani ... ?“. 

Zadame koncovou adresu RAM, kde jsou 
ulozena data. Program pokracuje po stisku 
RETURN. Na displeji se zobrazi 
,,Kontroluj napeti Vcc a Vpp (+5 V) na pa¬ 
meti EPROM! (Cekam na klavesu!)". 

Po stisku libovolne klavesy tento program 
v BASIC vyvola program ve strojovem kodu 


pro programovani EPROM. Na displeji uvidi- 
te 

,,Nastav napeti Vcc = 6 V, Vpp = 12,5 V. 
(Cekam na klavesu! - A, B)'‘ 

Na tuto vyzvu nastavite programovaci nape¬ 
ti v uvedenem poradi na pameti EPROM 
(podle popisu v katalogu Intel). Pro nektere 
EPROM 27128 jetreba V pp - 21 V. Postisk- 
nuti klaves A a B v uvedenem poradi pro¬ 
gram provadi potrebne programovaci opera- 


Vypis 2. Program ve strojovem kodu k programovani pameti EPROM (uklada se od 
adresy $8000) (915-V2) 


68 20 02 81 AD 11 06 F0 06 20 12 
EB 80 20 72 81 20 90 81 20 11 83 
25 81 A9 00 8D 00 D4 A5 CB 8D OB 
AO 00 B1 CB 8D 08 06 AO Ol 20 9F 
80 20 39 82 AD 08 06 CD 09 06 DO 
06 6D OA 06 A8 20 9F 81 EE 06 06 
02 E6 CC A5 CB CD 04 06 DO B1 A5 
02 8D 00 D4 20 1A 81 A9 00 8D OO 

82 AO 00 B1 CB CD 09 06 DO 37 E6 
DO 03 EE 07 06 A5 CB CD 04 06 DO 
AD 2F 02 8D OO D4 20 84 81 20 3B 
CD 09 06 DO 03 4C 58 80 20 84 81 

83 20 30 8} 4C CA 80 AD OO 06 8D 
AD 02 06 85 CB AD 03 06 85 CC 60 
A2 05 AO 85 20 42 C6 60 A2 35 AO 

84 20 42 C6 20 46 81 60 A2 A7 AO 
A2 ED AO 83 20 42 C6 20 46 81 60 
46 81 60 AD 09 D2 C9 3F DO F9 AD 
48 88 F0 OC A2 B2 EA EA EA CA DO 
EA EA CA DO FA 68 AA EA 60 08 68 
0D 06 A9 OO 8D 0E D4 60 AD OD 06 

60 8D E3 D5 20 2C 83 A9 80 20 84 
FO 6C 20 11 83 AD 08 06 20 74 83 
8D DO D5 20 55 81 8D FO D5 A9 OE 
CO 01 DO OD A9 03 8D OF 06 A9 01 
8D OF 06 A9 01 8D 10 06 EE 10 06 
06 EE lO 06 CE lO 06 EE 10 06 CE 
FF 8D 0F 06 CE 10 06 DO D9 EA EA 
08 06 20 74 83 8D E3 D5 A9 OF 20 
20 55 81 8D FO D5 20 C7 81 A9 OE 
11 06 DO 03 4C 7D 82 A9 90 20 84 
83 20 3C 83 8D F3 D5 8D F7 D5 8D 
8D 09 06 8D F7 D5 BD F3 D5 8D E3 
83 A9 80 20 84 83 8D EO D5 60 A9 
OF 20 84 83 20 C7 81 A9 0D 20 84 
F7 D5 20 C7 81 AD O0 D3 8D 09 06 
83 A9 0C 20 84 83 20 C7 81 A9 OE 
8D EO D5 60 AD 11 06 DO 03 4C 7D 

83 A9 OD 20 84 93 A9 OF 20 84 83 
D5 8D D7 D5 20 C7 81 AD 0O D3 8D 
8D E3 D5 20 2C 83 A9 OE 20 84 83 

84 83 8D E0 D5 60 AD 06 06 8D OO 
FA D5 8D F2 D5 AD 07 06 29 3F 20 
A9 FF 8D OO D3 A9 3C 8D 02 D3 60 
OO D3 A9 3C 8D 02 D3 60 AD OB 06 
AA D9 20 E6 D8 AO FF C8 B1 F3 10 
91 F3 A6 F3 A4 F4 20 42 C6 60 8D 
8D FB D5 8D F3 D5 60 8D OO D3 20 
8D FO D5 60 8D OO D3 20 C7 81 8D 
8D El D5 60 20 20 20 4E 61 73 74 
69 20 56 63 63 3D 36 56 2C 20 56 
2E 20 20 20 20 20 20 20 20 20 20 

61 20 6B 6C 61 76 65 73 75 21 20 
20 20 45 50 52 4F 4D 20 6E 65 6C 
74 20 28 58 3D 32 35 29 2E 20 20 
20 20 20 20 20 20 28 43 65 6B 61 
76 65 73 75 21 20 2D 41 2C 42 29 
20 6E 61 70 65 74 69 20 56 70 70 
3D 35 56 2E 20 20 20 20 20 20 20 
28 43 65 6B 61 6D 20 6E 61 20 6B 
2D 41 2C 42 29 9B ID 20 20 20 45 
72 6F 67 72 61 6D 6F 76 61 6E 61 
20 20 20 20 20 20 20 20 20 20 20 
6D 20 6E 61 20 6B 6C 61 76 65 73 
9B 7D AO AO DO D2 CF C7 D2 Cl CD 
D2 CF CD AO B2 B7 B1 B2 B8 AO El 
20 20 20 20 20 20 20 20 AO A0 AO 
EF E6 F4 F7 El F2 E5 AO A0 AO ID 
61 6D 6F 76 61 6E 69 20 45 50 52 
20 28 31 36 6B 42 29 21 20 20 20 
79 3A 9B 20 20 50 72 6F 67 72 61 
50 52 4F 4D 20 32 37 32 35 36 20 
20 20 20 ID ID 50 6F 6B 79 6E 79 


81 

4C 

12 

80 

20 

OA 

81 

20 

0521 

AO 

00 

B1 

CB 

20 

74 

83 

20 

07B6 

06 

A5 

CC 

8D 

OC 

06 

A2 

00 

0770 

81 

E8 

EO 

19 

DO 

03 

4C 

CB 

0863 

E8 

8A 

8E 

OA 

06 

18 

6D 

OA 

0661 

DO 

03 

EE 

07 

06 

E6 

CB 

DO 

07B4 

CC 

CD 

05 

06 

D0 

AA 

AD 

2F 

0A1B 

D4 

20 

EB 

80 

AO 

00 

20 

C3 

0736 

CB 

DO 

02 

E6 

CC 

EE 

06 

06 

09BO 

DF 

A5 

CC 

CD 

05 

06 

DO 

D8 

09B5 

81 

60 

20* 

39 

82 

AD 

08 

06 

0636 

AD 

2F 

02 

8D 

00 

D4 

20 

4C 

06A3 

06 

06 

AD 

01 

06 

8D 

07 

06 

0584 

A2 

Cl 

AO 

84 

20 

42 

C6 

60 

087B 

85 

20 

42 

C6 

60 

A2 

34 

A0 

084E 

83 

20 

42 

C6 

20 

46 

81 

60 

07CE 

A2 

7A 

AO 

84 

20 

42 

C6 

20 

08A9 

09 

D2 

C9 

15 

DO 

F9 

60 

8A 

0A99 

FA 

A2 

00 

FO 

FI 

A2 

AE 

EA 

0D2F 

8D 

OE 

06 

78 

AD 

OE 

D4 

8D 

OA69 

8D 

OE 

D4 

AD 

OE 

06 

48 

28 

05EB 

83 

8D 

EO 

D5 

60 

AD 

11 

06 

092A 

8D 

E3 

D5 

A9 

OF 

20 

84 

83 

0806 

20 

84 

83 

8D 

E0 

D5 

60 

48 

OA42 

8D 

10 

06 

4C 

E3 

81 

A9 

OA 

069C 

CE 

10 

06 

EE 

10 

06 

CE 

10 

05B9 

10 

06 

CE 

OF 

06 

DO 

E3 

A9 

0715 

EA 

EA 

68 

60 

20 

11 

83 

AD 

09FF 

84 

83 

20 

C7 

B1 

8D 

DO 

D5 

08E3 

20 

84 

83 

8D 

EO 

D5 

60 

AD 

09DD 

83 

20 

11 

83 

A9 

OD 

20 

84 

06A3 

D7 

D5 

20 

C7 

81 

AD 

00 

D3 

0B31 

D5 

20 

2C 

83 

A9 

OC 

20 

84 

09B7 

90 

20 

84 

83 

20 

11 

83 

A9 

0932 

83 

20 

3C 

83 

8D 

F3 

D5 

8D 

083C 

8D 

F3 

D5 

8D 

E3 

D5 

20 

2C 

0A36 

20 

84 

83 

A9 

80 

20 

84 

83 

07F5 

82 

A9 

90 

20 

84 

83 

20 

11 

0815 

20 

3C 

83 

8D 

F3 

D5 

8D 

F7 

08F7 

09 

06 

8D 

F7 

D5 

8D 

F3 

D5 

0B4O 

A9 

OC 

20 

84 

83 

A9 

80 

20 

0817 

D3 

20 

C7 

81 

8D 

F2 

D5 

8D 

OA0B 

94 

83 

60 

A9 

38 

BD 

02 

D3 

09 IF 

A9 

38 

8D 

02 

D3 

A9 

00 

8D 

0928 

85 

D4 

AD 

OC 

06 

85 

D5 

20 

07CA 

FB 

29 

7F 

91 

F3 

C8 

A9 

9B 

OCAF 

00 

D3 

20 

C7 

81 

8D 

F3 

D5 

0B5A 

C7 

81 

8D 

FO 

D5 

8D 

F8 

D5 

0C86 

FI 

D5 

8D 

F9 

D5 

8D 

FI 

D5 

0C7B 

61 

76 

20 

6E 

61 

70 

65 

74 

07A8 

70 

70‘ 

3D 

31 

32 

2E 

35 

56 

0549 

28 

43 

65 

6B 

61 

6D 

20 

6E 

04O5 

2D 

41 

2C 

42 

29 

9B 

ID 

20 

059A 

7A 

65 

20 

6E 

61 

68 

72 

61 

062B 

20 

20 

20 

20 

20 

20 

20 

20 

034F 

6D 

20 

6E 

61 

20 

6B 

6C 

61 

0510 

9B 

20 

20 

20 

53 

6E 

69 

7A 

05A8 

3D 

35 

56 

2C 

20 

56 

63 

63 

0627 

20 

20 

20 

20 

20 

20 

20 

20 

02D6 

6C 

61 

76 

65 

73 

75 

21 

20 

0654 

50 

52 

4F 

4D 

20 

6E 

61 

70 

04FF 

21 

20 

20 

20 

20 

20 

20 

20 

059E 

20 

20 

20 

28 

43 

65 

6B 

61 

035C 

75 

21 

20 

2D 

41 

2C 

42 

29 

05BD 

CF 

D6 

Cl 

CE 

C9 

AO 

C5 

DO 

0E22 

AO 

B2 

B7 

B2 

B5 

B6 

A0 

AO 

0D79 

C8 

F5 

ED 

E2 

EC 

E5 

AO 

D3 

09BO 

9B 

20 

20 

50 

72 

6F 

67 

72 

0B5A 

4F 

4D 

20 

32 

37 

31 

32 

38 

05B2 

20 

ID 

ID 

50 

6F 

6B 

79 

6E 

0471 

6D 

6F 

76 

61 

6E 69 

20 

45 

06E8 

28 

33 

32 

6B 

42 

29 

21 

20 

0428 

3A 

9B 







03F9 





10 REM ***************************** 

20 REM * OBSLUZNY PROGRAM PRO * 

30 REM * NAHRAVANI EPROM * 

40 REM * 11.7.88. Humble Software * 

50 REM ***************************** 

6© ? "Programovani 16/32 kB EPROM (zadej 16 nebo 32) _ ; 

70 INPUT DRUH 


80 IF DRUH016 AND DRUH032 THEN 60 
90 DRUH=DRUH/16-1 

100 ? "Adresa EPROM, od ktere se zacina prog—ramovat 
110 INPUT ZACEP 

120 ? "Adresa RAM,kde zacinaji data pro prog—ramovani EPROM .. 
130 INPUT ZACRAM 

140 ? "Adresa RAM, kde konci data pro progra—movani ..."; 

150 INPUT KONRAM 
160 KONRAM=KONRAM+1 

170 POKE 1536,ZACEP-INT(ZACEP/256)*256 
180 POKE 1537,INT(ZACEP/256) 

190 POKE 1538,ZACRAM-INT<ZACRAM/256)*256 
200 POKE 1539,INT(ZACRAM/256) 

210 POKE 1540,KONRAM-INT(K0NRAM/256)*256 
220 POKE 1541,INT(KONRAM/256) 

230 POKE 1553,DRUH 

240 ? "Kontroluj napeti Vcc a Vpp <+5V) na pameti EPROM! 

(Cekam na klavesu!)" 


250 POKE 764,255 

260 IF PEEK(764)=255 THEN 260 

270 C=USR(32768) 

280 ? “ KONEC!“ 

290 END 

30000 POKE 54018,56:POKE 54016 

30010 POKE 54016,128 

30020 POKE 54768,0 

30030 POKE 54776,0 

30040 POKE 54768,0 

30050 POKE 54016,0 

30060 POKE 54771,0 

30070 POKE 54779,0 

30080 POKE 54771,0 

30090 POKE 54770,0 

30100 POKE 54778,0 

30110 POKE 54770,0 

30115 POKE 54016,128+64 

30120 POKE 54769,0 

30130 POKE 54777,0 

30140 POKE 54769,0 


,255*POKE 54018,60 


ce. Po uspesnem naprogramovani pameti 
EPROM se na displeji zobrazi napis 
,,Sniz napeti Vpp=5 V, Vcc-5 V. (Cekam na 
klavesu! - A, B)“. 

Po snizeni programovacich napeti (v uvede- 
nem poradi) na urcene hodnoty a stisknuti 
klaves A a B program provadi verifikaci 
naprogramovanych bajtu. Pokud nebyla na- 
lezena chyba, zobrazi se na displeji napis 
„EPROM naprogramovana. (Cekam na kla¬ 
vesu! - A, B)‘‘ 


Vypis 1. Zakladni program v jazyku BASIC 
(91J5-V1) 


Po stisknuti uvedenych klaves nasleduje 
navrat do programu v BASIC a napis 
,,KONEC!“. 


Timto postupem je cela pozadovana oblast 
pameti EPROM naprogramovana. 

V pripade, ze ani po 25 jednomilisekundo- 
vych impulsech neni do pameti EPROM 
spravne zapsan pozadovany bajt, objevi se 
napis 

„EPROM nelze nahrat (X=25). (Cekam na 
klavesu! - A, B)“. 

Po stisku klaves A, B se vratite do programu 
v BASIC a zobrazi se napis 
„ KONEC!“. 

V pripade, ze pri verifikaci po skonceni 
prog ramovani pfi provoznich hodnotach na¬ 
peti byl v pameti EPROM nalezen bajt, ktery 
neodpovida prislusnemu bajtu v RAM poci- 
tace, na obrazovce se objevi stejny text, jako 
pri chybnem zapisu po 25 impulsech delky 
1 ms a po stisku klaves A, B se program vrati 
do BASIC a zobrazi se napis 

,, KONEC!". 

Pred zasunutim a vyjmutim EPROM z ob- 
jimky pripravku se nastavi logicka 0 na pri- 
vodech EPROM prikazem 

GOTO 30000 + RETURN. 


Zaver 

Zvolene hardwarove usporadani umozhu- 
je programovat EPROM 27128 (16 kB) nebo 
27256 (32 kB). V pripade EPROM 27256 se 
nejdrive programuje 16 kB a po zmene urov- 
ne na adrese A14 dalsich 16 kB. 

Programovani pameti EPROM jsme overi- 
li s paralelnim interfejsem vyuzivajicim joys- 
tickove porty a port pro programovy modul 
(popsany v 11 |). Zapis 16 kB vcetne verifika- 
ce trva asi 4 min. 


Literatiira 

1 | Pokorny J. et al.: Univerzalni paralelni 
interfejs k pocitacum ATARI 800XL 
a 130XE. Zaslano do Amaterskeho Ra- 
dia. 


Ing. Jaroslav Pipek, Horska 439, 543 02 Vrchlabl 

Clanek se zabyva popisem programovaciho pripravku primo slucitel- 
neho se skolmm mikropocftacem PMI 80. Obvodove reseni vsak muze 
byt voditkem i pro vlastnfky jinych mikropocitacu, kten nemajf moznost 
pameti EPROM programovat. Prestoze PMI 80 patrf mezi nejjednodus- 
si, Ize jej vedle praktickeho procvicovani instrukcniho souboru mikro- 
procesoru MHB8080 uspesne vyuzit jako zakladni jednotku pro realiza- 
ci cele rady i pomerne slozitych automatizacnich a regulacnich zarizeni. 
Je ovsem nutne tuto zakladni jednotku patricne rozsirit jak obvodove, 
tak programove v souladu s danou aplikaci. 


Pri navrhu a ozivovani zarizeni se neobej- 
deme (alespon v pocatecnim stadiu) bez 
pouziti pameti typu EPROM, ktere umozhuji 
trvale uchovat informaci bez ohledu na jejich 
zapojeni do obvodu. Lze je vsak vymazat 
ozarenim ultrafialovymi paprsky. To umoz- 
nuje pouziti techto pameti i vsude tarn, kde 
jiz program je funkcni, ale kde se da predpo- 
kladat, ze casern dojde k jeho obmene. 


Navrzeny pripravek umozni uzivatelum 
PMI 80 pohotove kdykoli zmenit obsah tech¬ 
to pameti nezavisle na jinem systemu. 


Popis pripravku 

Pripravek je osazen pouze dvema 10 
(MH7400 a UCY74123) a sesti tranzistory. 


Odpada adresovy i datovy registr. Jako re- 
gistru je vyuzito udaju na datove a adresni 
sbernici ve stavu WAIT mikroprocesoru. 
Cely pripravek je sestaven na oboustranne 
platovane kuprextitove desticce o rozme- 
rech 81 x80 mm a zasouva se do konektoru 
K1 na desce PMI-80. 


Obsluha a cinnost 

Nejprve jsou data urcena k zapisu do 
EPROM zapsana z klavesnice PMI-80 do 
zony RAM pameti (zvolena oblast 1C00 az 
1CFF). Tento blok dat Ize prepsat ze zony 
RAM do libovolne oblasti programovane pa¬ 
meti EPROM v rozsahu 0000 az 03FF. Po- 
catecni adresu teto oblasti predem ulozime 
z klavesnice do pomocnych bunek 1F00 
a 1F01 v oblasti pameti RAM PMI-80. Pritom 
do buhky 1F00 ukladame nizsi bajt teto 
adresy v hexadecimalnim tvaru, vyssi bajt 
do buhky 1F01. Udaje vyssiho bajtu vsak 
korigujeme vzdy o + 20H (viz tab.1) s ohle- 
dem na aktivaci programovane EPROM sig- 
nalem A13. Do dalsi pomocne buhky 1F02 
ukladame v hexadecimalnim tvaru udaj 
o deice bloku dat v RAM (jinak feceno obsah 
1F02 udava nizsi bajt koncove adresy bloku 
dat v RAM). S ohledem na skutecnost, ze 
jsme pro data urcena k prepisu do EPROM 
vymezili v RAM oblast 1C00 az 1CFF, je 
delka bloku dat max. 256 bajtu. Jednodusg 
Ize vsak naprogramovat az 1 kB dat, bude-li 
se opakovat programovaci cyklus (s novou 
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naplnt bunbk 1F00 az 1F02 podle tab.1) 
a s novym blokem dat umistenym op6t do 
zony 1 COO az 1CFF celkem ctyrikrat. Je to 
nutne vzhledem k nedostupnosti dalbiho 
1 kB pameti RAM. Bude-li k dispozici cely 
1 kB RAM pouze pro ucel programovani, pak 
Ize programovat EPROM najednou (ovbem 
s patricne zmbnenym ridicim programem). 
Ridici program je umisten v pomocne pameti 
EPROM, ktera je zasunuta do volne pozice 
na desce PMI-80 (jeji pocatecni adresa je 
0400). Programovana pamef se umisfuje na 
desku programatoru. Programovani (prepis 
z RAM) zacina spustenim ridiciho programu 
,,PROGRAM" na adrese 0400 (ridici pro¬ 
gram Ize umistit libovolne, podle toho se 
meni startovaci adresa). Data urcena pro 
zapis do EPROM jsou postupne nacitana ze 
zony pameti RAM (1C00 az 1CFF) a presu- 
novou instrukci MOV M, A prostrednictvim 
bitu A13 adresni sbernice je startovan mo- 
nostabilni klopny obvod MKOI, ktery vytvari 
signal READY a uvede mikroprocesor do 
stavu WAIT. Soucasne je spinacim obvo- 
dem, tvorenym tranzistory T5 a T6, privede- 
na na vstup CSn/WE uroven 12 V. Stav 
adresni sbernice se nemeni, data na datove 
sbernici jsou pripravena od okamziku pre- 
chodu signalu WR na log.0. Soucasne s pre- 
chodem signalu WAIT na uroven H je pres 
zpozd’ovaci obvod, tvoreny dvema hradly 
MH7400, spusten druhy monostabilni klop- 
• ny obvod MK02, ktery generuje impuls pro 
pripojeni programovaciho napeti U prog spi- 
nacem s tranzistory T1 a T2. Je-li programo¬ 
vani ukonceno, na displeji se rozsviti napis 
END. Tlacitkem RESET prejdeme do vycho- 
ziho stavu mikroprocesoru, doprovazeneho 
napisem PMI-80. 

Spravnost zapsanych dat mohu okamzite 
prekontrolovat spustenim programu ,,KOM- 
PARACE" na adrese 0430. Je-li nektery bajt 
—. zapsan chybne, zobrazi se v datovem poli 
displeje cislo tohoto bajtu. Byl-li cely blok 
naprogramovan spravne, rozsviti se napis 
,,C dobrE“. Obsah programovane pameti 
Ize tez kdykoli precist beznym zpusobem 
pocinaje adresou 2C00. K tomuto ucelu 
slouzi spinac z tranzistoru T3 a T4. 


Dalsi moznosti ridiciho programu 

Casto potrebujeme pfekopirovat obsah 
jedne pameti EPROM do druhe. V tomto 
pripade si pomuzeme nasledovne, aniz by- 
chom museli vyvadet sbernice. Prvni pamet 
(ORIGINAL) umistime do objimky, pripajene 
shora k vyvodum na pameti MHB8608 s pro¬ 
gramem MONITOR. Pouze vyvod CSn je 
propojen lankem s pozici CS4n na konektoru 
K1. Druha EPROM (KOPIE), na niz bude 
porizovana kopie, je v objimce na desce 
programatotu. 

Spustenim uzivatelskeho programu KO¬ 
PIE na adrese 0410 se prepise cela pamet’ 
z pozice ORIGINAL na pozici KOPIE (pro¬ 
gram testuje stavy FF, ktere preskakuje). 
V tomto pripade muze byt obsah pomocnych 
bunek 1F00 az 1F02 libovolny. Program tyto 
bunky nerespektuje. 

V pripade, ze potrebujeme zmenit obsah 
dat v EPROM, umistime tuto do pozice 
ORIGINAL. Na pozici kopie umistime pamet 
prazdnou. Spustenim programu PREPIS na 
adrese 0470 (v souladu s tab. 1) se prepise 
pozadovany blok dat do oblasti RAM na 
adresy 1C00 az 1CFF, kde je mozne bez¬ 
nym zpusobem (viz obsluha PMI 80) zm&nit 
obsah pozadovanych bunek. Blok dat po 
oprave prepiseme do EPROM spustenim jiz 
znameho programu PROGRAM na adrese 
0400. Tuto moznost prechodu pres RAM Ize 
vyuzit i pro premisteni bloku dat z dane 
^ j. pozice puvodni EPROM do libovolne oblasti 
64 nove EPROM. 


Tab. 1. Pomocne buftky ’ . ' ~ ~ ... . .. , 

v pam&ti RAM (914-Ti) 1F00 obsahuje mzsi bajt adresy, udavajici pocatek blolcu 

dat v EPSOM, a to: 

a) v programovane EPROM pri programu "PROGRAM", 

b) ve snlmane EPROM pri program "PftEPIS". 

1F01 obsahuje vyssi bajt, zavisi na oblasti EPROM, kterou 
programuji pri programu PROGRAM, nebo z ktere snimam 
pri programu PftEPIS. 


programovana oblast 

obsah 1F01 

prepisovana oblast 


EPROM 


0000 - OOFF 

20 

0100 - 01FF 

21 

0200 - 02FF 

22 

0300 - 03FF 

23 


Poznamka 

Jelikoz neni pouzit adresovy dekoder, ale 
primo bit A13 na prechod do stavu WAIT, 
mohlo by v dusledku cinnosti programu MO¬ 
NITOR dojit k pfepsani jiz naprogramova- 
nych spravnych dat pri ponechani *pro- 
gramovaciho napbti + 25 V. Proto je vyuzit 
vystup PB7 1010 pro blokovani obou MKO 
mimo vlastni program ,,PROGRAM“. Oba 
jsou blokovany vzdy od okamziku pripojeni 
zdroje k PMI-80 a po stisku tlacitka RESET 
(nebof bit PB7 brany PB 1010 je ve tretim 
stavu, tudiz T8 je sepnut). Programove je zajis- 
teno, ze pouze pri programovani prechazi 
vystup PB7 do stavu H a tim uvolhuje cinnost 
obou MKO (UCY74123). Vyvod PB7 je z po¬ 
zice '41 konektoru K2 spojen lankem na 
vstup T7. Signal z kolektoru T8 je privede na 
nevyuzitou pozici 28 konektoru K1. Obvod 
s tranzistory T7 a T8 je umisten v univerzal- 
nim poli primo na desce PMI-80. 


Oziveni a nastavem 


Zapojeni je natolik jednoduche, ze s ozivo- 
vanim pripravku nebudou problemy. Po osa- 
zeni a prekontrolovani vodivych cest podle 
obr. 1 nastavime bezce trimru asi do polovi- 
ny drahy. 

Prvni znamka spravne funkce bude, kdyz 
po zasunuti pripravku do konektoru K1 (pri 
preru§enem vyvodu z kolektoru T8 na nulo- 
vaci vstupy UCY74123) bude blikat napis 



,,PMI-80". Podle 11 | by rpSla byt delka pro¬ 
gramovaciho pulsu fp W v rozmezi 0,1 az 
1 ms. Pro spolehlive programovani pam§ti 
musi byt soucasne splnena nerovnost 
N. t pw >,100 ms, kde N je pocet programova- 
cich cyklu. 

Volime N = 128 (viz prikaz MVI B,80 na 
adrese OOFB), t = 800 (.is. Pomoci oscilo- 
skopu nastavime trimrem R7 dobu kyvu 
MKO 2 asi na 800 [is, trimrem R1 dobu kyvu 
MKOI asi na 860 [is. Zapojeni s temito easy 
funguje spolehlive. Dale pripojime pro- 
gramovaci napeti. Na vystupu emitoru T2 se 
musi objevit pulsy s urovni + 25 V a delkou 
800 [is. Po pripojeni vyvodu z kolektoru T8 
na nulovaci vstupy UCY74123 je pripravek 
pripraven k cinnosti. Zbyva jeste ulozit do 
pomocne pameti EPROM vlastni ridici pro¬ 
gram podle Vypisu 2. Jedna z moznosti, jak 
tuto pamet jiz v tomto stadiu naprogramovat 
bez pouziti jineho programatoru, je umistit 
ridici program ,, PROG RAM" (zahmuje c&sti 
zabinajici adresami: PROGRAM, PRESUN, 
ZOBRAZ) napr. pocinaje adresou 1D00 do 
pameti RAM. Nyni muzeme jiz znamym zpu¬ 
sobem ulozit cely ridici program podle Vypi¬ 
su 2 s tim, ze startovaci adresa je 1D00 
(pozor tez na zmdnu adres ve skokovych 
instrukcich). 

Vlastni programovani si nazomb objasni- 
me na dvou prikladech. Predstavme si nej- 
prve, ze je treba do pameti EPROM pocinaje 
adresou napr. 01AA zapsat nasledujici blok 
dat: F3,3E, 20,06,80,21, FF, 1E, 23,00, 76. 
Postupne provedeme nasledujici kroky: 

1) Data zapiseme do pameti RAM pocinaje 
adresou 1C00: 

1C00 F3 
1C01 3E 
1C02 20 
1C03 06 
1C04 80 
1C05 21 
1C06 FF 

1C07 1E v 

1C08 23 
1C09 00 
1C0A 76 

Delka bloku dat, jak je zrejme, je OA. 

2) V souladu s tab. 1 zapiseme na pomocne 
bunky: 

1F00 AA (nizsi bajt pobatecni ukladaci 
adresy) 

1F01 21 (vysbi bajt + 20H) 

1F02 OA (delka bloku dat) 

3) Odstartujeme program PROGRAM prika- 
zem G. 








Vypis 1. Program v symbolickych instrukcich 8080. Startovaci 
adresa = absolutni adresa EPROM + 0400H (pamefje aktivovana 
vstupem CSIn) (914-V1) 

(914-V1) 

Adresa 

absolutni 


0000 

PROGRAM: 

MVT C,FF ? pomocna data 

0002 


LHLD 1F00 ; vytvoreni pocatecni ukladaci 
adresy 

0005 


LXI D,1C00 ; pocatek bloku dat v RAM 

0008 


JMP PRESUN 

0010 

KOPIE: 

LXI D,1000 ; pocatek bloku dat v EPROM 
"ORIGINAL" 

0013 


LXI H,2000 ; pocatecni adresa v EPROM 
■KOPIE" 

0016 


MVI C,00 ; pomocna data 

0018 


JMP PRESUN 

0020 

PRESKOC 1: 

LDA 1F02 ; cely blok naprogramovan? 

0023 


CMP L 

0024 


JNZ TO ; neni 

0027 


JMP KONEC ; ano 

0030 

KOMPARAGE: 

CALL VSTUP 

0033 


ORI OC ; vytvoreni pocatecni adresy EPROM 

0035 


MOV H,A, 

0036 


LXI D,1C00 ; poc.adresa RAM 

0039 


XCHG 

003A 


OCX H 

003B 


DCX D 

003C 

OPET: 

INX H 

—003D 


INX D 

003S 


DQ B ; test delky bloku dat 

003F 


MOV A,C 

0040 


CMP B 

0041 


JZ ANO ; data zapsana spravne 

0044 


LDAX D 

0045 


CMP M ; neni chyba? 

0046 


JNZ OPET ; testuj dalsi bajt 

0049 


MOV A,L ; cislo chybneho bajt 

004A 


STA 1FFA 

004D 


CALL 00FB ; zobraz cislo chybneho bajtu 

0055 

VSTUP: 

LDA 1F02 

0058 


MOV C,A ; nastaveni citace cyklu 

0059 


MVI B,00 

005B 


INX B 

005C 


INX B 

005D 


LHLD 1F00 

0060 


MOV A f H ; utvor vyssi bajt pocatecni 
adresy, prepis z pozice 1000 
do RAM 

0070 

PREPIS 1: 

CALL VSTUP 

0073 


ORI 10 ; realizace adresy "ORIGINAL* 

0075 


JMP VYSTUP 

0080 

PREPIS 2: 

CALL VSTUP ; realizace adresy 
progrcuaiEPROM 

0083 


ORI 0C, 

0085 


JMP VYSTUP 

0090 

VYSTUP: 

MOV H,A 

0091 


LXI D,1C00 

0094 


Da H 

0095 


oa D 

0096 

TAM: 

INX H 

0097 


INX D 


0098 


Da b 

0099 


MOV A,C 

009A 


CMP B 

009B 


JZ ZOBRAZ ; cely blok dat je prepsan? 

009E 


MOV A,M ; ne 

009F 


XCHG 

00A0 


MOV M,A 

00A1 


XCHG 

00A2 


JMP TAM ; pokracuj v prepisu dat 

OOAA 

ANO: 

LXI H,190C ; zobraz *C dobrE" 

00AD 


SHLD 1FFF ; ukladej kody znaku do vyst. 
registru PMI 80 

00B0 


LXI H,110D 

00B3 


SHLD 1FF1 

00B6 


LXI H,120B 

00B9 


SHLD 1FF3 

00BC 


LXI H,190E 

00BF 


SHLD 1FF5 

00C2 


MVI A,19 

OOC4 


STA 1FF7 

OOC7 


CALL 0116 ; podprogran "OUTKE" PMI 80 

00D0 

ZOBRAZ: 

LXI H,1919 ; zobraz "END" 

00D3 


SHLD 1FFF ; ukladej kody znaku do vyst. 
registru PMI 80 

00D6 


LXI H,0E19 

00D9 


SHLD 1FF1 

OODC 


LXI H,0D1B 

OODF 


SHLD 1FF3 

00E2 


LH H,1919 

00E5 


SHLD 1FF5 

00E8 


MVI A,19 

OOEA 


STA 1FF7 

OOED 


CALL 0116 ; podprogram "OUTKE" PMI 80 

00F0 

PRESUN: 

MVI A,88 ; prograaovani 82 55 

00F2 


OUT FB 

00F4 


MVI A,80 ; PB7 na uroven "H" 

00F6 


OUT F9 

00F8 


XCHG 

OOF9 


oa H 

OOFA 


oa D 

OOFB 

TU: 

MVI B,80 

OOFD 


INX H ; prechod na dalsi adresu 

OOFE 


INX D 

OOFF 


MOV A,M ; presun dat z RAM 

0100 


CPI FF 

0102 


JZ PRESKOC ; neprograauj "FF* 

0105 

SEM: 

XCHG 

0106 


MOV M,A ; cyklus prograaovani 
jednoho bajtu dat 

0107 


DCR B 

0108 


JNZ SEM ; je cyklus ukoncen? 

010B 


XCHG,ANO 

010C 

PRESKOC: 

MOV A,C ; je pozadovan program 

l 


nebo kopie? 

010D 


CPI FF 

010F 


JZ PRESKOC 1; program 

0112 


NOP 

0113 


NOP 

0114 


MOV A,L ; kopie 

0115 


CPI FF ; test ukonceni prepisu 

0117 


JNZ TU 

011A 


MOV A,H 

01 IB 


CPI 13 

01 ID 


JNZ TU ; cela paaet prekopirovana? 

0120 

KONEC: 

MVI A,00 ; ano 

0122 


OUT F9 

0124 


JMP ZOBRAZ ; zobraz napis "END" 


66 


Nyni si povsimneme slozitejsiho pripadu, 
kdyz prechazi blok dat svoji delkou pres dve 
oblasti. V tom pripade musime program roz- 
delit na dva dilci useky. Napr. blok dat 
z prvniho prikladu chceme umistit do EP¬ 
ROM pocinaje adresou OOFB. Podle tabul- 
ky i je zfejrne, ze se prechazi z oblasti 1 do 
oblasti 2. Provedeme posloupnost nasleduji- 
cich kroku: 

1) Urcime delku bloku dat, ktery Ize jeste 
umistit do zony 1 pomoci vztahu: 

FF - nizsi bajt pocatecni ukladaci 
adresy + 01. 

Tedy FF - FB + 01 - 05. 

2) Burtky v RAM obsadime nasledovne: 

1C00 F3 
1C01 3E 
1C02 20 
1C03 06 
1C04 80 

3) V souladu s tab. 1 zapiseme na pomocne 
buhky: 

1F00 FB (nizsi bajt pocatecni ukladaci 
adresy) 

1F01 20 

1F02 04 (delka bloku dat) 

4) Odstartujeme program PROGRAM. 

5) Zbyla data zapiseme do RAM opet poci¬ 
naje bunkou 1C00: 

1C00 21 
1C01 FF 


Vypis 2. 

, Obsah pomocne pameti 

0000 

EPROM s ndici'm programem 

0010 



(914-V2) 

0020 




0030 




0040 




0050 

Seznam soucastek 

0060 

0070 

R1,R7 

TP 011 

22 kil 

0080 

R2.R4 

TR 151 

12 kii 

0090 

R3.R5 

TR 151 

390 Q 

00A0 

R6 

TR 151 

5.6 kil 

noRn 

R8 

TR 151 

6,8 k!i 


R9-R12 

TR 151 

4,7 kU 

ooco 




00D0 

C1.C3 

TK 782 

150 nF 

00E0 

C2 

TK 782 

10 nF 

00F0 

T1, T2, T4, T6, 

KC507 

0100 

T3, T7, T8 

KC508 

0110 

T5 


KSY63 

0120 


1C02 IE 
1C03 23 
1C04 00 
1C05 76 

6) Pocatecni ukladaci adresa je nyni 0100 
a v souladu s tab. 1 ulozime na: 

1F00 00 
1F01 21 
1F02 05 

7) Odstartujeme program PROGRAM prika- 
zem G. 


OE 

FF 

2A 

00 

IF 

11 

00 

1C 

C3 

FO 

04 

FF 

FF 

FF 

FF 

FF 

11 

00 

10 

21 

00 

20 

OE 

00 

C3 

F0 

04 

FF 

FF 

FF 

FF 

FF 

3A 

02 

IF 

BD 

C2 

FB 

04 

C3 

20 

05 

FF 

FF 

FF 

FF 

FF 

FF 

CD 

55 

04 

F6 

OC 

67 

11 

00 

1C 

EB 

2B 

IB 

23 

13 

0B 

79 

B8 

CA 

AA 

04 

1A 

BE 

CA 

3C 

04 

7D 

32 

FA 

IF 

ctf 

FB 

00 

FF 

FF 

FF 

FF 

FF 

3A 

02 

IF 

4F 

06 

00 

03 

03 

2A 

00 

IF 

7C 

C9 

FF 

FF 

FF 

FF 

FF 

FF 

FF' 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

CD 

55 

04 

F6 

10 

C3 

90 

04 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

CD 

55 

04 

F6 

OC 

C3 

90 

04 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

67 

11 

00 

1C 

2B 

IB 

23 

13 

OB 

79 

B8 

CA 

DO 

04 

7E 

EB 

77 

EB 

C3 

96 

04 

FF 

FF 

FF 

FF 

FF 

21 

OC 

19 

22 

EF 

IF 

21 

OD 

11 

22 

FI 

IF 

21 

OB 

12 

22 

F3 

IF 

21 

OE 

19 

22 

F5 

IF 

3E 

19 

32 

F7 

IF 

CD 

16 

01 

FF 

FF 

FF 

FF 

FF 

FF 

21 

19 

19 

22 

EF 

IF 

21 

19 

0E 

22 

FI 

IF 

21 

IB 

OD 

22 

F3 

IF 

21 

19 

19 

22 

F5 

IF 

3E 

19 

32 

F7 

IF 

CD 

16 

01 

3E 

88 

D3 

FB 

3E 

80 

D3 

F9 

EB 

2B 

IB 

06 

80 

23 

13 

7E 

FE 

FF 

CA 

OC 

05 

EB 

77 

05 

C2 

06 

05 

EB 

79 

FE 

FF 

CA 

20 

04 

00 

00 

7D 

FE 

FF 

C2 

FB 

04 

7C 

FE 

13 

C2 

FB 

04 

3E 

00 

D3 

F9 

C3 

DO 

04 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF 


Pri pfepisu z pameti EPROM v pozici 
ORIGINAL do pameti RAM je postup uplne 
shodny s tim, ze na 1F00 ukladame opet 
nizsi bajt pocatecni adresy, tentokrat vsak 
prepisovaneho bloku dat, na 1F01 vyssi bajt 
teto adresy zvetseny opet o + 20H a na 1F02 
opet delku prepisovaneho bloku dat. 

Literatura 

111 Programator pameti EPROM rizeny mi- 
kropocitacem. ST8/81. 


< - — - 1 > 

0SCIL0SK0P Z0 Z X SPECTRA 

s_._A---> 

Jindrich Vldensky, Lamac-Podhaj 55, 841 03 Bratislava 

Program bol vytvoreny pre vyuzitie AD prevodnika s mikropocitacom 
v elektrotechnickej praxi ako jednoducheho nf pamat’oveho oscilosko- 
pu. Umoznuje merat’ v osmich pamat’ovych rozsahoch signaly do 15 
kHz. 


Po nahrani programu do pocitaca sa zo- 

brazi zakladne menu: 

F . . . Zmena farieb INK, PAPER, BOR¬ 
DER. 

Z . . . Zmena riadiaceho slova, jeho adresy 
a adresy vstupneho portu. 

P . Zmena adresy vlastneho podprogra- 

mu, Fubovofnej rutiny, ktora sa da 
vyvolat’ pocas behu osciloskopu. 
Moze to byt’ napr. podprogram pre 
Hardcopy. 

C Zmena synchronizacnej hodnoty (vid’ 

d’alej). 

S . . . Start osciloskopu. Stlacenim tejto kla- 
vesy sa vypise 

hlavne menu s tymito moznost’ami 

. 1 -8 Stlacenim jednej z tychto klaves vybe- 
rieme casovy rozsah a zaroven sa 
spusti zobrazovaci rezim oscilosko¬ 
pu, v ktorom prebieha vzorkovanie 
signalu a jeho zobrazovanie. 

Z . . V zobrazovacom rezime sa vykresli 
na obrazovku siefka 5x10. 


X . . . Siet’ka sa nebude vykreslovaf. 

C . . . Program po vykresleni priebehu caka 
na stlacenie Tubovolnej klavesy, cim 
sa obraz na obrazovke zastavi a je 
mozne napr. presne odcitaf amplitu- 
du, alebo urobit’ kopiu obrazovky. 

V ... Program necaka na stlacenie klave¬ 
sy, takze obraz sa meni plynule, po- 
dobne ako na obycajnom oscilosko- 
pe. 

B . . . Vzorkovanie bude prebiehat bez 
softwarovej synchronizacie, vid’ N. 

N . Synchronizacia priebehu vzorkova- 
nia prechodom signalu cez hodnotu 
nastavenu v zakladnom menu klave- 
sou C. Program caka, kym signal 
nedosiahne nastavenu hodnotu, zisti 
ci priebeh rastie a ak ano, potom ho 
zobrazi. Tym sa dosiahne, ze signal 
nebeha po obrazovke, ale vzdy zaci- 
na v urcitej hodnote. Vyuzif sa da 
tento rezim hlavne pri periodickych 
signaloch. 

M . . Tak isto, ako pri N, ale synchronizacia 
klesajucim priebehom. 

W . . . Navrat do zakladneho menu. 


P ... Stlacenim tejto klavesy pocas zobra- 
zovacieho rezimu sa vykona odskok 
na vlastny podprogram, ukonceny in- 
strukciou RET. Zmenu adresy v za¬ 
kladnom menu je vhodne urobif len 
vtedy, ak je podprogram skutocne 
v pamati, inac hrozi zrutenie systemu 
pri nahodnom stlafieni P. Podpro¬ 
gram je treba umiestif nad adresu 
41500. 

Q ... Po stlaceni Q sa da vratif do tohoto 
menu zo zobrazovacieho rezimu. 

Program pracuje na principe navzorkova- 
nia signalu do pamati tak, aby dfzka vzorky 
zodpovedala danemu casovemu rozsahu. 
Preto kazdemu rozsahu zodpoveda jeden 
z casovacich podprogramov F01 az F680. 
Tieto zaisfuju pravidelne intervaly medzi 
jednotlivymi vzorkami signalu. Touto casfou 
je limitovana aj najvyssia frekvencia, ktoru je 
mozne zobrazif, resp. este odcitaf na obra¬ 
zovke. Na obrazku je priklad signalu 15 kHz, 
ktory je este rozlisiterny. Po navzorkovani 
256 hodnot z AD prevodnika do pamati su 
vzorky prepocitane z intervalu 9 az 255 do 
intervalu 0 az 191, aby ich bolo mozne 
zobrazif na obrazovku Spectra. 

Program sa sklada z BASICu a strojoveho 
kodu. Neodporudam robif v nom veike zme- 
ny, hlavne riadok 700 musi zostat presne tak 
ak je, tzn. vcelku, dodrzaf vsetky ciarky 
a pred riadkom 700 sa nesmie vyskytnuf iny 
riadok s prikazom DATA. 

Strojovy kod je pisany v assembleri, je 
odladeny systemom MRS. Odporucam ne- 
robif v horn ziadne zmeny, prelozif ho od 
adresy 40000, pretoze je modifikovany pri- 
kazmi POKE z BASICu. Takisto je treba 
v assembleri prelozif aj instrukcie NOP, kto- 
re sa na prvy pohrad mozu zdat’ zbytocne. 
Pretoze je vypis programu vytlaceny malymi 
pismenami, je treba dat pozor pri prepisova- 
ni na zamenu pismena I s cislicou 1. 





Technicke predpoklady 

Je treba pouzit’ osembitovy A/D prevod- 
nik, ktory ma automaticky start prevo- 
du a vyrovnavaciu pamat'. Vhodny je napri- 
klad prevodnik zo zelenej prflohy AR Mikroe- 
lektronika 1988. Rychlost’ prevodu by vsak 
mala byf mensia ako 5,7 i±s. Je dana naj- 
rychlejsim rozsahom a najrychlejsou instruk- 
ciou blokoveho prenosu s opakovanim INIR. 
Pri pouziti prevodnika s mens'im poctom 
bitov ako 8 sa zbytocne zmensuje rozlisova- 
cia schopnosf osciloskopu a pouzitie napr. 
12 bitoveho prevodniku s vyuzitim jeho hor- 
nych 8 bitov je sice mozne, avsak je zbytoc- 
nym luxusom vzhladom k rozlisovacim 
schopnostiam obrazovky Spectra. Citlivost’ 
osciloskopu je dana citlivosfou prevodniku. 

Najvhodnejsie su prevodniky typu MDAC 
08, program nie je urceny pre prevodniky 
s multiplexovym BCD vystupom typu C520. 
Vhodne je, aby vstup prevodniku bol bipolar- 
ny, vzhladom k potrebe sledovat’ nf signaly. 

Na prilozenych kopiach obrazovky su na- 
snimane rozne priebehy v roznych casovych 
rozsahoch. Je z nich vidief priklad pouzitia 
synchronizacie priebehu prechodom cez “nu- 
lovu“ hodnotu, pouzitie siet’ky, ako aj kvalita 
generatora ,,sinusoveho“ priebehu. 


Zaver 

Program osciloskop nebol urceny ako 
nahrada skutocneho osciloskopu, ktoremu 
sa svojimi parametrami nemoze rovnaf, ale 
iba ako pomerne uzitocna pomocka pri na- 
. stavovani jednoduchych elektrotechnickych 
zariadeni, na rozne orientacne sledovanie 
analogovych aj digitalnych signalov a ako 
nahrada za logicku sondu. 


Vypis 1. Program v BASICu (928-V1) 


10 CLEAR 39999: BORDER 1: PAPE 
R l: INK 7: CLS : LOAD ""CODE 40 
000: CLS : BORDER 0 

20 LET ash=40472: LET sh=127: 
LET ash2=40478: LET ars=127: LET 
rs=130: LET vp=63: LET op=31 

40 GO TO 600 

50 PRINT AT 3 » 0 f"1-ZMENA ADRES 
Y RIADIACEHO SLOVA PRE INTERFA 
CE" 

60 PRINT AT 5 f 0 »"2-ZMENA RIADI 
ACEHO SLOVA PRE IN- TERFACE" 

70 PRINT AT 8f9f"OUT<"J ars ?")f 
" irsl" 

80 PRINT AT 10 f 0 f "3-ZMENA ADRE 
SY USTUPNEHO PORTU PREVODNIKU 

(A/D PREVOD)" 

90 PRINT AT 13f13f"IN("S PEEK 4 
07075") 

100 PRINT AT 15 f 0 5"4-ZMENA ADRE 
SY VYSTUPNEHO PORTU PREVODNIKU 

t D/A PREVOD NIE JE NUTNY 3 

110 PRINT AT 18 f 13 5"OUT("5 op 5") 

120 PRINT AT 21f 0 5 BRIGHT 15"R- 


NAVRAT K 

MENU" 




130 IF 

INKEY$="1" 

THEN 

INPUT 

a 

rs: GO TO 50 




140 IF 

INKEY$= : "2" 

THEN 

INPUT 

r 

s: GO TO 

50 




150 IF 

INKEY$="3" 

THEN 

INPUT 

V 

p: POKE 

40707 f vp: 

GO TO 

50 


160 IF 

INKEY*="4" 

THEN 

INPUT 

o 


p: GO TO 50 

170 IF INKEY$="R" OR INKEY$="r" 
THEN GO TO 460 
180 GO TO 130 

400 INPUT "INK "5A: IF A<0 OR A 
>7 THEN GO TO 400 
410 INK A 

420 INPUT "PAPER "5A: IF A<0 OR 
A >7 THEN GO TO 420 
430 PAPER A 


440 INPUT "BORDER "?A: IF A<0 0 
R A>7 THEN GO TO 440 
450 BORDER A 
460 CLS 

600 PRINT AT 6f15"F-ZHENA FARIE 
B"”" Z-ZMENA HODNOT PRE INTERFA 
CE""" P-ZMENA ADRESY VLASTNEHO" 
'" PODPROGRAMU"”*" C-ZMENA SYN 
CHRONIZACNEJ HQDNOTY"" BRIGHT 1 
5" S-START OSCILOSKOPU 

610 IF INKEY$-"F~ OR INKEY*="f" 
THEN GO TO 400 

620 IF INKEY$="z" OR INKEY$="Z" 
THEN CLS : GO TO 50 
630 IF INKEY$-"S" OR INKEY$="s" 
THEN GO TO 700 

640 IF INKEY$="C" OR INKEY*="c" 
THEN INPUT "nova hodnota "5sh: 
POKE ash fsIi : POKE ash2Fsh 
650 IF INKEY$="P" OR INKEY$="p" 
THEN INPUT "adresa nesmie byt 
z intervalu 40000-41500 "5ppp: 

POKE 40372fINT (ppp/256): POKE 
40371Fppp-256#INT (ppp/256): GO 

ro 610 

660 GO TO 610 

700 DATA "1- 2 s/dielF2- 200 

ms/dielF3- 40 ms/diel f4- 8 m 

s/dielF5- 2 MS/diol f6- 0.8 ms/ 
dielF7- 0.4 Ms/d.iolF8- 0.3 Ms/di 
elvZ-so sietkouFX-beij sietkyFC-c 
4ka na stlacenio kIavesy f po vy 
kr gsI oni fV- necaka na stiacenie k 
lavesyFB-vzorkovanio boz synchro 
nizacie t N-synchrqnizac ia prechad 
dnK£G 2 f nastavenu hodnotu stupa 
juciM f priebehow f M-synchron^zac 
:La klesajuciMF pr iebehowi fW- n*avr 
at do hlavneho menuvP-vystup na 
vlastny podprogramrO-navrat zo 'z 
obrazovaciehoF rezimu do tohoto 
menu f ♦HEAVYSOFT 1988" 

710 OUT ars ft s: RANDOMIZE USR 4 
0000 

720 GO TO 460 

1000 SAVE "OSCILOSKOP" LINE 10 
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Obr. 1. Ukazky vytisknutych prubehu 
(928-1) 
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Vypis 2. Rutina ve strojovem kodu (928-V2) 


60bb 
60bb 
9c 40 
9c 40 
9c 40 
9c40 f3 
9c41 cd8a9d 
9c44 cda09d 
S’cr47 cd419d 
9c4a e5 
9c4b ddcl 


*a 

org 40000 

5vstupna rutinaFtlac menu 
Frnodifikacia programu 
osc di 

call clear 
call vstup 
call data 
push hi 
pop i >< 






























14 

9c4d cd559d 

scan 1 

call 

prnt 

110 

9d0f d5 


push 

de 

15 

9c50 cd059e 

scan 

cal 1 

keys 

111 

9d10 cdf19d 


cal 1 

prep 

16 

9c53 cdlb2d 


cal 1 

* 2 dlb 

112 

9d13 dl 


pop 

de 

17 

9c56 304b 


jr 

nc .vzor 

113 

9dl4 4a 


Id 

c »d 

18 

9c58 fe5a 


cp 

"Z’ 

114 

9d15 cdb022 


call 

* 22 b 0 

1 ? 

9c5a 2004 


jr 

nz.xx 

115 

9d18 3c 


inc 

a 

20 

9c5c af 


xor 

a 

116 

9d19 47 


Id 

b. a 

21 

9c5d 32b69d 


Id 

(qridd).a 

117 

9dla 3e01 


Id 

a. 1 

22 

9c60 fe58 

><>< 

cp 

’X’ 

118 

9dlc 0f 

1 op 

r rca 


23 

9c62 2005 


jr 

nz.ee 

119 

9dId 10f d 


d jnz 

lop 

24 

9c64 3ec9 


Id 

a » *c9 

120 

9dIf ae 


xor 

(hi) 

25 

9c66 32b69d 


Id 

(qridd)»a 

121 

9d20 77 


Id 

(hi) .a 

26 

9c69 f e43 

cc 

cp 

’C» 

122 

9d21 e1 


pop 

hi 

27 

9c 6 b 2004 


jr 

nz»vv 

123 

9d22 14 


inc 

d 

28 

9c6d af 


xor 

a 

124 

9d23 c 8 


ret 

z 

29 

9c6e 32049e 


Id 

(keyp)»a 

125 

9d24 23 


inc 

hi 

30 

^c71 fe56 

vv ' 

cp 

’K>> 

126 

9d25 18e6 


jr 

dl s 

31 

9c73 2005 


jr 

nz.bb 

127 

9d27 af 

pr vy 

xor 

a 

32 

9c75 3ec9 


Id 

a » *c9 

128 

9d28 32069d 


Id 

(kres).a 

33 

9c77 32049e 


Id 

(keyp)»a 

129 

9d2b 32079d 


Id 

(kres+ 1 ) .a 

34 

9c7a fe42 

bb 

cp 

•B' 

130 

9d2c c9 


ret 


35 

9c7c 2005 


jr 

nz.nn 

131 

9d2f 




36 

9c7g 3gc9 


Id 

a»*c9 

132 

9d2f cd069d 

zob r 

cal 1 

kres 

37 

9c80 32109e 


Id 

(sync).a 

133 

9d32 11049f 


Id 

de.vzor 2 

38 

9c83 f g4g 

nn 

cp 

’N’ 

134 

9d35 2108a0 


Id 

hi.vzor 1 

39 

9c85 2009 


jr 

nzruin 

135 

9d38 010001 


Id 

be.256 

40 

9c87 3 g38 


Id 

a. *38 

136 

9d3b Gdb0 


ldir 


41 

9c89 321f9 g 


Id 

(updo).a 

137 

9d3d cd069d 


call 

kres 

42 

9c 8 c af 


xor 

a 

138 

9d40 c9 


ret 


43 

9c8d 32109e 


Id 

(sync)»a 

139 

9d41 




44 

9c.90 fc4d 

MM 

cp 

' M' 

140 

9d41 21d05c 

data 

Id 

hi.23760 

45 

9c92 2009 


jr 

nztww 

141 

9d44 3ce4 

dtr 1 

Id 

a. 228 

46 

9c94 3 g30 


Id 

a»*30 

142 

9d46 23 

dtr 

inc 

hi 

47 

9c96 321f9e 


Id 

(updo).a 

143 

9d47 be 


cp 

(hi) 

48 

9c99 af 


xor 

a 

144 . 

9d48 20fc 


jr 

nz.dtr 

49 

9c9a 32109G 


Id 

(sync)»a 

145 

9d4a 23 


inc 

hi 

50 

9c9d f g57 

ww 

cp 


146 

9d4b 3e22 


Id 

a. 

51 

9c9f 20af 


J r 

nz»scan 

147 

9d4d be 


cp 

(hi) 

52 

9cal fb 


ci 


148 

9d4e 20f4 


jr 

nz.dtrl 

53 

9ca2 c9 


ret 


149 

9d50 23 


inc 

hi 

54 

9ca3 




150 

9d51 222b9e 


Id 

(dtad).hi 

55 

9ca3 

f vyber 

casovacich podprogramov 

151 

9d54 c9 


ret 


56 

9ca3 

.vykreslenie sietky 

152 

9d55 




57 

9ca3 

»synchronizaeia vzorkovania 

153 

9d55 

frutina vypisu na screen 

58 

9ca3 

»vzarkovanie 

154 

9d55 0600 

prnt 

Id 

b .0 

59 

9ca3 f g30 

vzor 

cp 

fQ? 

155 

9d57 0e00 

prnt 2 

Id 

c .0 

.60 

9ca5 28a9 


jr 

z »scan 

156 

9d59 dd7c00 

prntl 

Id 

a.(ix+ 0 ) 

61 

9ca7 f g39 


cp 

» 9 » 

157 

9d5c fe22 


cp 

> ~» 

62 

9ca9 28a5 


jr 

z t scan 

158 

9d5e c 8 


ret 

z 

63 

9cab f5 


push 

af 

159 

9d5f fe2c 


cp 

».» 

64 

9cac cd8a9d 


call 

clear 

160 

9d61 2005 


jr 

nz.print 

65 

9<^af fl 


pop 

af 

161 

9d63 04 


inc 

b / 

66 

9cb0 d631 


sub 

*31 

162 

9d64 dd23 


inc 

ix 

67 

9cb2 87 


add 

a. a 

163 

9d66 18ef 


jr 

prnt 2 

68 

9cb3 212d9a 


Id 

hi.ftab 

164 

9d68 c5 

print 

push 

be 

69 

9cb6 1600 


Id 

d r 0 

165 

9d69 11003c 


Id 

de.*3c00 

70 

9cb8 5f 


Id 

e. a 

166 

9d6c 87 


add 

a.a 

71 

9cb9 d5 


push 

de 

167 

9d6d 6 f 


Id 

1 . a 

72 

9cba 19 


add 

hl.de 

168 

9d6e 63 


Id 

h »e 

73 

9cbb 5 g 


Id 

e. (hi) 

169 

9d6f 29 


add 

hi .hi 

74 

9cbc 23 


inc 

hi 

170 

9d70 29 


add 

hi .hi 

75 

9cbd 56 


Id 

d.(hl) 

171 

9d71 19 


add 

hi»de 

76 

9cbc cd53c29c 


Id 

(cas+ 1 )»de 

172 

9d72 eb 


ex 

de.hl 

77 

9cc2 dl 

« 

pop 

de 

173 

9d73 78 


Id 

a.b 

78 

9cc3 213d9c 


Id 

hi.ztab 

174 

9d74 42 


Id 

b rd 

79 

9cc6 19 


, add 

hl.de 

175 

9d75 cd9e0e 


cal 1 

*0e9e 

80 

9cc7 5 g 


Id 

e. (hi) 

176 

9d78 50 


Id 

d.b 

81 

9cc8 23 


inc 

hi 

177 

9d79 0600 


Id 

b .*00 

82 

9cc9 56 


Id 

d. (hi) 

178 

9d7b 09 


add 

hi »bc 

83 

9cca cd53d39c 


Id 

(text+ 2 ).de 

179 

9d7c 0608 


Id 

b .*08 

84 

9ccg cdb69d 


cal 1 

gr idd 

180 

9d7e la 

sic 

Id 

a.(de) 

85 

9cd1 dd21999c 

text 

Id 

ix.zf680 

181 

9d7f 77 


Id 

(hi) .a 

86 

9cd5 cd559d 


cal 1 

prnt 

182 

9d80 lc 


inc 

e 

87 

9cd8 2108a0 

samp 

Id 

hi.vzor 1 

183 

9d81 24 


inc 

h 

88 

9cdb 013f00 

por t3 

Id 

be.*3f 

184 

9d82 10f a 


d jnz 

sic 

89 

9cde cdl09e 


call 

sync 

185 

9d84 cl 


pop 

be 

90 

9cg 1 cda59c 

cas 

call 

f 680 

186 

9d85 0c 


inc 

c 

91 

9cc4 cd2f9d 


cal 1 

zobr 

187 

9d86 dd23 


inc 

ix 

92 

9cc7 cd049c 


cal 1 

keyp 

188 

9d88 18cf 


jr 

prntl 

93 

9cea cd229e 


call 

qpress 

189 

9d8a 




94 

9ccd 38 g9 


jr 

c»samp 

190 

9d8a 210040 

c 1 ear 

Id 

hi.*4000 

95 

9ccf cdad9d 


cal 1 

cop 

191 

9d8d 110140 


Id 

de»*4001 

96 

9cf2 cd8a9d 


cal 1 

clear 

192 

9d90 010018 


Id 

be.*1800 

97 

9cf5 3cl8 


Id 

a.*18 

193 

9d93 75 


Id 

(hi) .1 

98 

9cf7 32069d 


Id 

(kres)»a 

194 

9d94 edb0 


ldir 


99 

9cfa 3elf 


Id 

a. *lf 

195 

9d96 3a8d5c 


Id 

a.(*5c8d) 

100 

9cfc 32079d 


Id 

(kres+ 1 )»a 

196 

9d99 77 


Id 

(hi) .a 

101 

9cff dd2a2b9e 


Id 

ix.(dtad) 

197 

9d9a 01ff02 


Id 

be»* 02 ff 

102 

9d03 c34d9c 


JP 

scanl 

198 

9d9d edb0 


ldir 


103 

9d06 




199 

9d9f c9 


ret 


104 

9d06 

>vykreslenie priebehu 

200 

9da0 




105 

9d06 181f 

kres 

J r 

pr vy 

201 

9da0 3a039f 

vstup 

Id 

a.(brana) 

106 

9d08 21049f 


Id 

hi.vzor 2 

202 

9da3 32169e 


Id 

(partl + 1 ) .a 

107 

9d0b 1600 


Id 

d > 0 

203 

9da6 321c9e 


Id 

(port 2 +l)»a 

108 

9d0d 7 g 

dl s 

Id 

a. (hi) 

204 

9da9 \32dc9c 


Id 

(port3+l)»a 

109 

9d0c c5 


push 

hi 

205 

9dac c9 


ret 





'Si 


206 

9dad 




299 

9e4b 999e 


dw 

zf 680 

207 

9dad 3edf 

cop 

Id 

arOdf 

300 

9e4d 3220732f 

Zf01 

db 

”2 s/diel“ ’ 

208 

9daf dbfe 


in 

a» <254) 


6469656c 




209 

9dbl If 


rra 



22 




210 

9db2 d2b59d 


JP 

nc »obsl 

301 

9e56 32303020 

zf 1 

db 

’200 ms/diel 

211 

9db5 c9 

obsl 

ret 



6d732f 64 




212 

9db6 





69656c22 




213 

9db6 

f podprogram 

pre sietku 

302 

9e62 3430206d 

zf 5 

db 

’40 ms/diel" 

214 

9db6 00 

gr idd 

nop 



732f 6469 




215 

9db7 af 


xor 

a 


656c22 




216 

9db8 0e00 

pkr 

Id 

c 1 000 

303 

9c6d 38206d73 

zf 25 

db 

’£( ms/diel"’ 

217 

9dba f5 


push 

af 


2f 646965 




218 

9dbb cdb022 


cal 1 

O22b0 


6 c 22 




219 

9dbe 36cc 


Id 

(hi) r Occ 

304 

9e77 32206d73 

zf 100 

db 

’2 Ms/diel"’ 

220 

9dc0 e5 


push 

hi 


2f646965 




221 

9dcl dl 


pop 

de 


6 c 22 





9dc2 13 


inc 

de 

305 

9e81 302e3820 

zf 250 

db 

’ 0.8 rrts/diel 

223 

9dc3 011f00 


Id 

bCfOlf 


6d732f64 




224 

9dc6 edb0 


ldir 



69656c22 




225 

9dc8 fl 


pop 

af 

306 

9e8d 302e3420 

zf 500 

db 

’0.4 Ms/diel 

226 

9dc9 c613 


add 

a*013 


6d732f 64 




227 

9dcb fedl 


cp 

Odl 


69656c22 




228 

9dcd 20e9 


jr 

nz*pkr 

307 

9g 99 302e3320 

zf 680 

db 

’0.3 Ms/diel 

229 

9dcf 0e00 


Id 

C r 000 


6d732f 64 




230 

9dd1 3ebf 

tt 

Id 

a * Obf \ 


69656c22 




231 

9dd3 cb47 

sw 

bit 

0 r a \ 

308 

9ea5 

fcasovacic 

rutiny 

232 

9dd5 2810 


jr 

z t idr 

309 

9ea5 edb2 

f 680 

inir 


233 

9dd7 f5 


push 

af 

310 

9ea7 c9 


ret 


234 

' 9dd8 c5 


push 

be 

311 

9ea8 eda2 

f 500 

ini 


235 

9dd9 cdb022 


call 

O22b0 

312 

9eaa 20fc 


jr 

nziOfc 

236 

9ddc 3c 


inc 

a 

■ 313 

9eac c9 


ret 


237 

9ddd 47 


Id 

b t a 

314 

9ead eda2 

f 250 

ini 


238 

9dde 3e01 


Id 

a 1 001 

315 

9eaf f5 


push 

af 

239 

9de0 0f 

lpl 

rr ca 


316 

9eb0 c600 


add 

a 1 - 000 

240 

9del 10fd 


d jnz 

lpl 

317 

9eb2 fl 


pop 

af 

241 

9de3 ae 


xor 

(hi) 

318 

9eb3 20f 8 


jr 

nz? 0 f 8 

042 

9de4 77 


Id 

(hi) >a 

319 

9eb5 c9 


ret 


243 

9de5 cl 


pop 

be 

320 

9eb6 eda2 

f 100 

ini 


24f4 

9de6 fl 


pop 

af 

321 

9eb8 f5 


push 

af 

245 

9de7 3d 

idr 

dec 

a 

322 

9eb9 c5 


push 

be 

246 

9de8 20e9 


jr 

nzrsn 

323 

9eba 0605 


Id 

b»005 

247 

9dea 3e33 


Id 

a 1 033 

324 

9ebc 10fe 


d jnz 

Of e 

248 

9dec 89 


adc . 

aic 

325 

9ebe cl 


pop 

be 

249 

9ded d 8 


ret 

c 

326 

9ebf fl 


pop 

af 

250 

9dee 4f 


Id 

c 1 a 

327 

9ec0 20f4 


jr 

nz»Of 4 

251 

9def 18e0 


jr 

tt 

328 

9ec2 c9 


ret 


252 

9df 1 

• 



329 

9ec3 eda2 

f 25 

ini 


~ 253 

9df 1 

frutina nasobenia 3/4 

330 

9ec5 f5 


push 

af 

254 

9df1 2600 

prep 

Id 

h 1 000 

331 

9ec6 c5 


push 

be 

255 

9df3 6 f 


Id 

1 v a 

332 

9ec7 0625 


Id 

b 1 025 

256 

9df4 54 


Id 

d t h 

333 

9ec9 10f e 


d jnz 

Of e 

257 

9df5 5d 


Id 

e r 1 

334 

9ecb cl 


pop 

be 

258 

9df 6 29 


add 

hi >hl 

335 

9GCC fl 


pop 

af 

259 

9df 7 19 


add 

hi »de 

336 

9ccd 20f4 


J r 

nz > Of4 

260 

9df 8 cb3c 


srl 

h 

337 

9ecf c9 


ret 


261 

9dfa cbld 


rr 

1 

338 

9ed0 eda2 

f 5 

ini 


262 

9dfc cb3c 


srl 

h 

339 

9ed2 f5 


push 

af 

263 

9dfe cbld 


r r 

1 

340 

9ed3 c5 


push 

be 

264 

9e00 3ebf 


Id 

arObf 

341 

9ed4 06cd 


Id 

b r Ocd 

265 

9e02 95 


sub 

1 

342 

9ed6 10fe 


d jnz 

Of e 

266 

9e03 c9 


ret 


343 

9ed8 cl 


pop 

b c 

267 

9e04 




344 

9ed9 fl 


pop 

af 

268 

9e04 

f vstup 

z klavesnice 

345 

9eda 20f4 


jr 

n z»Of 4 

269 

9e04 00 

keyp 

nop 


346 

9edc c9 


ret 


2>0 

9g 05 cd8e02 

keys 

call 

O028e 

347 

9edd eda2 

f 1 

ini 


271 

9e08 20fb 


jr 

nzrkeys 

348 

9edf f5 


push 

af 

27*5 

9e0a cdle03 


call 

O031e 

349 

9ce0 c5 


push 

be 

273 

9e0d 30f 6 


jr 

nc ?kcys 

350 

9eel 0600 


Id 

b > 000 

274 , 

9e0f c9 


ret 


351 

9ee3 10fe 


d jnz 

Of e 

275 

9el0 

5 synchronizacia 

352 

9ee5 10fe 


d j n z 

Of c 

276 

9el0 00 

sync 

nop 


353 

9ee7 10fe 


d jnz 

Of e 

277 

9ell cd229e 


cal 1 

qpress 

354 

9ee9 10fe 


d jn z 

Of e 

278 

9el4 d0 


ret 

nc 

355 

9eeb cl 


pop 

be 

279 

9el5 db3f 

portl 

in 

ar (63) 

356 

9eec fl 


pop 

af 

280 

9g 17 fe7f 

sync 1 

cp 

127 

357 

9eed 20ee 


jr 

nz f Oee 

281 

9g 19 20f5 


jr 

nzisync 

358 

9ecf c9 


ret 


282 

9clb db3f 

por t 2 

in 

a.(63) 

359 

9ef0 eda2 

f 01 

ini 


283 

9cld fe7f 


cp 

127 

360 

9ef 2 f ( 5 


push 

af 

284 

9clf 38cf 

updo 

jr 

c t sync 

361 

9ef 3 d5 


p ush 

be 

285 

9c21 c9 


ret 


362 

9ef4 0629 


Id 

b . 029 

286 

9c22 




363 

9ef 6 c5 


Dush be 

287 

9g 22 cdad9d 

qpress 

cal 1 

cop 

364 

9ef 7 0600 


Id 

b 9 O ; 00 

288 

9g 25 3cfb 


Id 

a* 0 f b 

365 

9ef9 10f e 


d jnz 

Of e 

289 

9g 27 dbfe 


in 

a 1 (254) 

366 

9efb cl 


pop 

be 

290 

9g 29 If 


rra 


367 

9efc 10f 8 


d jnz 

Of 8 

291 

9c2a c9 


ret 


368 

9efe cl 


pop 

be 

292 

9c2b 

5 tabulk 

y 


369 

9eff fl 


pop 

af 

293 

9e2b 0000 

dtad 

db 

0 f 0 

370 

9f 00 20ee 


jr 

n z r 0 e e 

294 

9e2d f 09edcf9e 

f tab 

dw 

f 01 rflrf5 

371 

9f02 c9 


ret 



d09e 




372 

9f03 fe 

bran a 

db 

254 

295 

9e33 c39eb69e 


dw 

f25rf100 

373 

9f 04 

5 buff er 

■ pre 

vzorky 

296 

9e37 ad9ca89e 


dw 

f 250 > f500 * f 680 

374 

9f 04 

vzor 2 

ds 

260 


a59e 




375 

a008 

vzor 1 

ds 

260 

297 

9e3d 4d9c569e 

ztab 

dw 

zf01»zfI»zf5»zf25 

376 

a 10 c 





629e6d9e 




377 

a 10 c 


end 


298 

9g 45 779e819e 


dw 

zf100»zf250vzf500 







8d9e 


DDA^DAM DDA l/DCCI CMI ACifx 

lm#%llfj*' Im ■ • C ViF Lai Cii INI I V*H Spall im I ' 

^ . ^ . ■.'.•• - . ' -' . ---'- ...^... 

Jan VeriS, Leninova268, 533 41 Lazne Bohdanec 


V posledm dobe se zacal mezi vlastmky domacich pocitacu rozsirovat zapisovac jako periferm zanzenf. 
Rozlisovaci schopnost beznych zapisovacu je podstatne vetsi nez rozlisem na obrazovce pocitace. Vetsina 
kreslicich programu pro ZX Spectrum vsak provadi kresbu primo na obrazovku a nevytvan pritom zadny 
zaznam o vzniku kresby. V tomto pripade pak slouzi zapisovac pouze jako pomalejsi tiskarna a jeho hlavni 
prednosti nejsou vyuzity. Aby bylo mozno pine vyuzit velkou rozlisovaci schopnost zapisovace, je nutne, 
aby program zaznamenaval kreslene objekty v tzv. vektorove forme do pameti (tj. zaznamenaval pouze 
souradnice koncovych bodu a nektere dalsi dulezite parametry s co nejvetsi presnosti, podle kterych Ize 
kresbu zpetne zrekonstruovat. Vysledny vektorovy soubor Ize pak vykreslit na souradnicovem zapisovaci 
s maximalm moznou presnosti. 


+ 



1. Zakladni filozofie 
programu GEK+ 

Kreslici plocha programu GEK+ ma roz- 
mer 20000x20000 zakladnich jednotek (1 
zakladni jednotka = 1 pixel pri zobrazeni 
ZOOM 1:1 viz dale). Na teto pracovni plose 
Ize umist'ovat zakladni objekty - cary (LINE), 
kruhove oblouky (ARC), a text o maximalni 
deice 5 znaku (TEXT). 

Jedna kreslici plocha se nazyva blok. Lze 
otevrit (OPEN) az 60 nezavislych kreslicich 
ploch - bloku. Kazdy otevreny blok je v pod- 
state dalsim zakladnim objektem, ktery Ize 
tedy stejne jako caru, text, oblouk umistit 
kamkoliv do jineho bloku. Umist’ovani bloku 
do sebe je omezeno pouze tak, aby nevznik- 
la rekurze - tedy nelze vlozit blok do sebe 
sameho. 

Obrazovka pocitace je pfi behu programu 
GEK+ rozdelena na tri samostatne casti. 
V prave casti je trvale zobrazena nabidka 
- menu pristupnych prikazu. Ve spodni casti 
obrazovky je tzv. dialogova radka, na ktere 
program zobrazuje jednoduchou napovedu 
podle okamzite situace. Na zbytku obrazov¬ 
ky je zobrazen vyrez z kreslici plochy prave 
aktivniho bloku s ohledem na zvolene zvet- 
seni (ZOOM) a posun (PAN). 


2. Ovladani programu 

Program se ovlada pomoci osmi tlabitek 
klavesnice. Ctyri pro pohyb kurzoru (Q naho- 
ru, A dolu, O vlevo, P vpravo). Ctyri tlacitka 
Z, X, M, N slouzi pro vyber variant. 

Po nahrani programu se zobrazi kurzor 
v podobe krizku uprostred obrazovky. Pfi 
pohybu se jeho rychlost po skocich postup- 
ne zvysuje. Po dosazeni okraje obrazovky 
se kurzor zastavi. V horni casti obrazovky se 
prubezne tiskne x-ova a y-ova vzdalenost 
kurzoru od bodu o souradnicich 0,0 v mili- 
metrech (1 zakladni jednotka = 0,125 mm, 
coz odpovida nejmensimu kroku zapisova¬ 
ce). 

Dialogova radka je pomyslne rozdelena 
na ctyri casti; kazda cast odpovida jednomu 
tlacitku pro vyber varianty. Zleva to tedy jsou 
Z, X, N a M. Po spusteni programu tato radka 
vypada takto: 

ERASE MENU TEXT LINE 

Tlacitkem Z tedy vyvolame funkci ERASE , 
tlacitkem N funkci TEXT a tlacitkem M funkci 
LINE. Stiskneme-li klavesu X, dostaneme se 
do menu. V dialogove radce se objevi tato 
zprava: 

SELECT CREATE DEFINE SELECT 


Nyni muzeme posunovat barevnym kur- 
zorem v prave casti obrazovky po jednotli- 
vych prikazech menu pomoci klaves Q, 
A - pomaly posun a O, P - posun po 
strankach. Vybranou funkci potvrdime kla- 
vesou Z nebo M. Pomoci klavesy X muzeme 
kdykoliv opustit toto menu bez provedeni 
prikazu. Pfi bastem uzivani nekterych funkci 
by stale hledani v menu zbytebne zpomalo- 
valo praci, proto je mozne pfeddefinovat tfi 
funkce na tlacitka Z, N a M. Tyto funkce jsou 
pak kdykoliv pfistupne stiskem pfislusneho 
tlabitka bez nutnosti jejich vyberu z menu. 
Postup je nasledujici: nastavime kurzor na 
vybranou funkci a stiskneme N (-DEFINE), 
potom stiskneme jednu z klaves Z, N nebo 
M. Nyni jiz je vybrana funkce pfistupna pfes 
vybranou klavesu pfimo bez volani menu. 
Jmeno definovane funkce se takb zobrazi 
v pfislubne kolonce dialogoveho fadku. 


3. Operace s bloky 

3.1 OPEN 

Po spustbni programu neni otevfen zadny 
blok - neexistuje tedy kreslici plocha, do 
ktere bychom mohli umisfovat objekty. Pro 
otevfeni nove kreslici plochy slouzi funkce 
OPEN. Aktivujeme-li tuto funkci, program 
nejprve kontfoluje, zda Ize otevfit dalsi blok 
(pocet bloku je maximalnb 60). V pfipadb, ze 
je otevfeno jiz 60 bloku, program ohlasi 
chybu „Too many blocks". Je-li vbe v pof£d- 
ku, program poiaduje zadani sestiznakove- 
ho jmena oteviraneho bloku. Po napsani 
jmena stiskneme ENTER. V teto chvili je 
novy blok otevfen a jeho jmeno se stalo 
soucasti menu. 

3.2 CURR 

V jednom okamziku Ize samozfejme kres- 
lit pouze do jednoho tzv. aktivniho bloku. 
Chceme-li kreslit ci provadet zmeny v jinem 
jiz otevfenem bloku, vyvolame funkci CURR. 
Nyni se v prave casti obrazovky zobrazi 
pouze posledni cast menu se jmeny otevfe- 
nych bloku a v dialogovem fadku se vypise 
napovbda: 

Backgr. Current block 
Vybereme blok, ktery se ma stat aktivnim 
blokem a potvrdime volbu ktevesou X, 
N nebo M. Stiskneme-li klavesu Z, vybrany 
blok se vykresli mene vyraznb jako pozadi 
pod naslednb vybrany aktivni blok. Toto je 
vyhodne napf. pfi kresleni dvoustrannych 
desek plosnych spoju apod. 

Pozn.: 

I. Blok otevfeny funkci OPEN se zaroveh 
stava i aktivnim blokem a taktez zakladnim 
objektem (viz kapitola 2). 






II. Vybereme-li kurzorem prazdny radek 
v nabidce, program se chova tak, jako by- 
chom vybrali funkci popr. blok, jehoz jmeno 
je zobrazene prvni. 


4. Kresleni objektu 

V programu GEK+ existuji ctyri druhy 
•zakladnich objektu. Jsou to cary (pfikaz 
LINE), kruhove oblouky (ARC), text (TEXT). 
Kazdy otevreny blok se jevi z hlediska dru- 
hych bloku take jako objekt - tj. Ize ho umistit 
na libovolne misto jineho bloku a to i nekoli- 
krat. 

4.1 Cary - prikaz LINE 

Kurzor umistime do pocatecm'ho bodu 
cary a vyvolame funkci LINE, v dialogovem 
radku se objevi zprava To point, kurzor tedy 
nastavime na koncovy bod cary a potvrdime 
(klavesy Z, X, N, M). Na obrazovce se na¬ 
kresli rovny usek cary specifikovane tlous- 
t’ky (viz kapitola 5.4), v dialogove radce se 
zobrazi: 

END To point 

Klavesou Z tedy muzeme funkci LINE opustit 
nebo Ize nastavit kurzor do dalsiho bodu 
a potvrdit (X, N nebo M). Tim je mozne kreslit 
dalsi useky lomene cary. 

4.2 Kruhove oblouky - prikaz ARC 

Vyvolame funkci ARC, v dialogove radce 
se objevi: Center point, nastavime tedy kur¬ 
zor na stred kruhoveho oblouku a potvrdime 
(Z, X, N nebo M), v dialogove radce se 
objevi: Start point, nastavime kurzor na po- 
catecni bod oblouku a potvrdime. Nyni pro¬ 
gram pozaduje zadani uhlu opsaneho oblou- 
kem ve stupnich (kladny udaj - oblouk bude 
—pokracovat od pocatecniho bodu proti smeru 
hodinovych rucicek, zaporny udaj - po sme¬ 
ru hodinovych rucicek). Zadany ciselny udaj 
potvrdime stiskem klavesy ENTER. 

4.3 Text prikaz TEXT 

Kurzor nastavime do bodu, kde se ma 
nachazet levy dolni roh fadky textu. Vyvola¬ 
me funkci TEXT. Program pozaduje zadani 
textoveho retezce o deice prave 5 znaku. 
Pokud je text kratsi, je nutne jej doplnit 
mezerami ! ! Text potvrdime ENTER. Nyni 
zadame vysku textu v milimetrech a opet 
potvrdime ENTER. Pro usetfeni mista v pa¬ 
meti a pro zrychleni programu se na obra¬ 
zovce nevypise text, ale pouze ramecek, 
ktery respektuje delku a rozmery textu. 

4.4 Vkladani bloku 

Umistime kurzor na misto, kde se ma 
nachazet bod o soufadnicich 0,0 ve vklada- 
nem bloku. Nyni v menu nastavime kurzor 
na jmeno bloku, jez chceme vlozit do prave 
aktivniho bloku a potvrdime stejne jako ja- 
koukoliv jinou funkci (Z nebo M). 

Pozn.: 

I. Jmeno bloku Ize samozrejme stejne jako 
jinou funkci pfeddefinovat na klavesy Z, 
N nebo M. 

II. Program nepripousti rekurzivni vkladani 
bloku do sebe. Nelze tedy vlozit blok 1 do 
bloku 1 - tomu program zabrani, ale je-li blok 
1 vlozen do bloku 2 a dojde k pokusu o vloze- 
ni bloku 2 do bloku 1, program to nerozpozna 
a havaruje ! ! 


5. Opravy vykresu 

I pfi nejpeclivejsi praci se muzeme zmylit. 
Pro opravy vykresu slouzi v programu 
GEK+ tri funkce: vymazavani (ERASE), po- 
sun (MOVE), a kopirovani (COPY). 


5.1 Vymazavani - prikaz ERASE 

Touto funkci Ize vymazat vsechny objekty, 
ktere alespofi castecnb zasahuji do defino- 
vane obdelnikove oblasti. Pokud je do prave 
aktivniho bloku vlozen jiny blok, je tento 
chapan jako jediny objekt, tedy - zasahuje-li 
do vymezene oblasti alespon jeden objekt 
z vlozeneho bloku, bude cely tento vlozeny 
blok vymazan. Po vyvolani funkce ERASE 
oznacime nejprve levy dolni roh oblasti, kte- 
rou chceme vymazat. Potom oznacime pra- 
vy horni roh teto oblasti. ,Po potvrzeni obou 
bodu program jakoby ,,v duchu“ musi na- 
kreslit znova vsechny objekty a vybrane 
odstranit z pameti. Zdanlive se chvilku nic 
nedeje. Kdyz je program hotov, vymaze 
obrazovku a nakresli znovu aktivni blok jiz 
bez vymazanych objektu. Pozor! V pripadS 
slozite kresby muze byt tato cinnost velmi 
casove narocna. 

Pozn.: Pri znovuvykresleni aktivniho bloku 
funkci ERASE se jiz nevykresli pripadne 
pozadi (viz kapitola 3. 2). 

5.2 Presun MOVE 

Tato funkce umoznuje presunout vyrez 
prave aktivniho bloku na jine misto tohoto 
bloku. Postup je obdobny jako u fukce ERA¬ 
SE. Po zadani presouvane oblasti program 
chvili ,,premysli“, pote jsme dotazani na 
polohu bodu, do kterbho se presune puvod- 
ne oznaceny levy dolni roh presouvane ob¬ 
lasti. Dalsi binnost programu je obdobna 
funkci ERASE. 

Pozn.: viz 5.1 

5.3 Kopirovani COPY 

Tato funkce okopiruje objekty z definova- 
ne oblasti na jine misto. Postup je obdobny 
jako u funkce MOVE. 

5.4 Prikaz LINE TYPE (L.'TYPE) 

Umozfiuje zadat pobet paralelne jdoucich 
bar a jejich vzdalenost, ktere se vykresli pfi 
pouziti LINE nebo ARC. Pomoci tohoto pri- 
kazu tedy Ize kreslit ruznb tluste bary. 

Nejprve zadame pobet paralelnb jdoucich 
bar (musi byt vbtbi nebo roven jedne) a po¬ 
tom vzdalenost mezi jednotlivymi carami 
v zakladnich jednotkach (1 zakladni jednot- 
ka = 1 pixel pfi zobrazeni ZOOM 1:1 viz 
riize). 

Definovany typ bary plati az do dalbiho 
predefinovani. Po nahrani programu je auto- 
maticky nastaven typ: pobet bar = 1, vzdale¬ 
nost = 0 (pokud je pobet bar roven jednb,, 
nema udaj vzdalenosti zadny vyznam). 

6. Skupina prikazu 
pro rizem zobrazovanf 

Protoze kreslici plocha programu GEK+ 
je v porovnani s obrazovkou pobitace daleko 
vetsi, neni vzdy mozne zobrazit na obrazov¬ 
ce cely vykres s dostatecnou presnosti. Na 
obrazovce je videt pouze vyrez okoli defino- 
vaneho bodu kreslici plochy (po spusteni je 
to okoli bodu 0,0) v definovanem zmenseni. 
Pomoci funkce ZOOM je mozne menit 
zmenseni kresby, funkci PAN Ize definovat 
bod, jehoz okoli chceme zobrazovat. 

6.1 Prikaz ZOOM 

Umoznuje menit meritko zobrazeni na 
obrazovce. Souradnice objektu jsou v pame¬ 
ti pocitace ulozeny s konecnou presnosti. 
Zadame-li meritko 1:1, bude-Wzdalenost 
dvou sousednich pixelu na obrazovce zaro- 
ven nejmensi moznou vzdalenosti, kterou 
muze program GEK+ rozlisit. Tato vzdale¬ 
nost take souhlasi s rozlibenim zapisovabe, 
ktere je 0,125 mm. Navyva se zakladni jed- 
notka. 

Po vyvolani prikazu ZOOM se v dialogove 
radce zobrazi vyzva: Scale 1: a program 
ceka na zadani cisla z intervalu 1 az 99 


vbetnb, kter6 rika, kolik zakladnich jednotek 
pripadne na jeden pixel. Jsou povolena i de- 
setinna bisla. Po zadani hodnoty program 
znovuvykresli vykres v zadanem mbritku. 

6.2 Prikaz PAN 

Na obrazovce je zobrazena bast kreslici 
plochy v okoli bodu 0,0. Chceme-li pracovat 
na jine casti vykresu, ktera je momentalne 
mimo ramec obrazovky, pouzijeme prikaz 
PAN. Po jeho vyvolani program vyzaduje 
zadani souradnic bodu, ktery ma byt ve 
stredu obrazovky. Po zadani souradnic pro¬ 
gram smaze obrazovku a znovuvykresli oko¬ 
li definovaneho bodu. Pfi kresleni se samo- 
zfejme respektuje dfive zadane zmenseni. 

7. Prfkazy pro spolupraci 
s magnetofonem 

7.1 SAVE 

Pomoci tohoto pfikazu je mozno uschovat 
na magnetofonovy pasek jeden ci nekolik 
bloku. 

Po vyvolani tohoto pfikazu program nej¬ 
prve pozaduje zadani prvniho nahravaneho 
bloku. V nabidce tedy vybereme kurzorem 
prvni blok, ktery chceme nahrat a potvrdime 
klavesou Z, X, N nebo M. Stejnym zpusobem 
oznacime i posledni nahravany blok. Nyni 
program pozaduje zadani jmena nahravky. 
Tento nazev musi mit pfesne 5 znaku! Po 
odeslani jmbna (ENTER) spustime magne- 
tofon. Nahraji se postupne tfi soubory, ktere 
nesou vsechny potfebne informace o ozna- 
cenych blocich. 

7.2 Prikaz LOAD 

Pomoci tohoto pfikazu Ize nahrat do pa¬ 
meti pobitace bloky dfive uchovane pfika- 
zem SAVE. Po vyvolani pfikazu LOAD zad£- 
me pbtiznakove jmbno, kterb jsme pouzili pfi 
uklbdanj bloku na pasek pomoci SAVE. Pote 
spustime magnetofon. Program automatic- 
ky fidi nahrani vbech tfi casti zaznamu. 
Nahrany blok (bloky) se pfipoji za jiz otevfe- 
ne bloky. Jestlize by pfi pfipojovani bloku 
pfikazem LOAD hrozilo pfekroceni vymeze¬ 
ne kapacity pambti, vypibe se hlabeni „No 
room for file" a volba je zrubena. 

8. Dalsi dulezite informace 

8.1 Zatimco u klasickych kreslicich pro¬ 
gramu je omezena pracovni plocha pobtem 
zobrazitelnych bodu na obrazovce, u pro¬ 
gramu GEK+ je kreslici plocha prakticky 
neomezena (20000x20000 zakladnich jed¬ 
notek odpovida pfibliznb rozmeru vykresu 

2,5 x 2,5 metru pfi rozlibeni 0,125 milimetru), 
je vsak omezen celkovy pobet objektu, ktere 
je mozno do kreslici plochy (kreslicich ploch) 
umistit. Pro zaznam objektu je vymezeno 
pfibliinb 8 kB operabni pameti, coz odpovi¬ 
da pfibliznb 1500 usekum rovnych bar bi 700 
kruhovym obloukum. Pokud se prave zada- 
vany objekt jiz nevejde do pambti, program 
vypibe zpravu ,, Memory full". Objekt se sice 
nakresli na obrazovku, ale do pameti se jiz 
nezaznamena. 

8 . 2 . Vlozime-li blok jako objekt do jineho 
bloku, nezaznamenava se do pameti jmeno 
tohoto bloku, ale pouze jeho pofadove cislo. 
To muze ve spojeni s pfikazy SAVE a LOAD 
binit urcite potize. 

Prfklad: 

Mejme nahrany na pasce soubor s informa- 
cemi o techto tfech blocich: 

1. CTVER obsahuje ctverec vytvofeny ze 

ctyf useku rovne bary, 

2. KOLO obsahuje kruh vytvofeny pfika¬ 

zem ARC, 

3. CTVK obsahuje vnofene bloky 

CTVER. a KOLO. 


Po nahrani programu GEK+ otevreme pri- 
kazem OPEN prvni blok a nazveme jej KRI- 
ZEK, bude obsahovat napf. krizek slozeny 
ze dvou rovnych Car. Nyni pouzijeme prikaz 
LOAD a prihrajeme vy§e uvedeny soubor 
bloku. Hlavni menu potom muze vypadat 
napriklad takto: 


KRIZEK 

CTVER 

KOLO 

CTVK 

Podivame-li se nyni prikazem CURR na 
. bloky KRIZEK, CTVER. a KOLO, jsou v po- 
radku. Podivame-li se vsak na blok CTVK, 
vidime krizek a Ctverec, ac zde byl puvodne 
ctverec a kruh. Blok CTVK obsahuje prvni 
a druhy blok - puvodne to byly bloky CTVER. 
a KOLO, nyni je v§ak prvni blok KRIZEK 
a druhy CTVER. a tak se take zobrazi. 

9. Popis vnitrm struktury 
programu 

Zdrojovy text programu GEK+ byl napsan 
v jazyce Pascal a prelozen kompilatorem 
hpl 13, coz je upravena verze kompilatoru 
HP4T1.6 fy HiSoft doplnena o nektere grafic- 
ke procedury. 

Program Ize pro zjednoduseni rozdfelit na 
nekolik casti: blok procedur pro ovladani 
datoveho souboru s ulozenymi objekty, blok 
funkci pro kresleni objektu na obrazovku, 
blok procedur, ktere provadSji uzivatelem 
vybrane funkce, cast, ktera ridi komunikaci 
s uzivatelem (ovladani menu, kurzoru atd.) 
a nakonec cast programu, ktera ridi soufiin- 
nost vsech techto casti. 

Funkce pro kresleni objektu: 

LINETL vykresli caru die zadanych pa- 
rametru a platneho mdritka 
a posunuti. Vystupem funkce 
je log. hodnota typu Boolean, 
ktera rika, zda nakreslena Cara 
zasahuje do defindvatetneho 
okenka (pouziva se pri MOVE, 
COPY a ERASE). 

ARCKRES kresleni kruhoveho oblouku 
podle zadandho stredu, poCat- 
ku, opsaneho uhlu a typu Cary. 
Ostatni viz LINETL. 

TEXTKRES kresleni ramecku namisto tex- 
tu. 

KRESLI kresleni vsech objektu, ktere 
obsahuje parametry specifiko- 
vany blok. Funkce rekurzivne 
vola sama sebe, je-li do kresle- 
neho bloku vlozen dalsi blok. 
Ostatni viz LINETL. 

Procedury pro ovladani datoveho souboru 

Protoze pouzity prekladaC neumozhuje 
vytvorit vyhovujici strukturu dynamickych 
promCnnych pro ukladani udaju o kresle- 
nych objektech, bylo nutne vytvorit procedu¬ 
ry, ktere udrzuji specicilni datove pole v pa- 
meti pro tyto objekty. Toto pole je tvoreno 
jednak samostatnym usekem pameti o deice 
asi 8 kB a dale skupinou ukazatelu na zaCat- 
ky jednotlivych podiiseku v datovem poli. 
Struktura datoveho pole je na obr. 1. 

Vsechny ukazatele jsou soustredeny v poli 
UK, krome toho jsou v tomto poli tez ulozeny 
udaje o poCtu objektu v jednotlivych oblas- 
tech. Praci s informacemi o objektech umoz- 
huji tyto procedury a funkce: 

POCETPRVKU vraci poCet objektu uloze- 
nych v specifikovane ob- 
72 lasti. 


NPRVEK 

vyd^ n-ty prvek ze zadane 
oblasti. 

VLOZ 

vlozi prvek do zadane ob- 
N lasti. 

SMAZ 

' smaze vybrany prvek v za¬ 
dane oblasti. 

ZMEN 

zmdni udaje u specifikova- 
neho prvku v zadane ob¬ 


lasti. 


Zadana oblast - je to oblast, ve ktere jsou 
ulozeny informace o objek¬ 
tech stejneho typu. Tato 
oblast je definovana Cis¬ 
tern bloku a typem oblasti 
(LINE, ARC . . .), coz jsou 
parametry kazde procedu¬ 
ry. 

Komunikace s uzivatelem 

Funkce CPRIK tato funkce ridi pohyb 
kurzoru, vyber z me¬ 
nu a predefinovani 
uzivatelskych klcives. 
Vraci Cislo prikazu, 
ktery byl vybran uzi¬ 
vatelem. 

Funkce POHYBKUR ridi pohyb kurzoru po 
obrazovce, prepoCet 
souradnic, zobrazo- 
vani souradnic, oso- 
veho krize apod. 
Vraci znak odpovida- 
jici stisknute klavese 
(kromC Q, A, O a P). 

| 

Procedury provadCjici prikazy vyvolane 
z menu uzivatelem: PROPEN, PRCURR, 
PRERASE, PRMOVE, PRCOPY, PRLINE- 
TYPE, PRZOOM, PRPAN, PRSAVE, 
PRLOAD, PRLINE, PRARC, PRTEXT, 
PRBLOK. 

Aizeni behu programu 

Vlastni provadeci program nejprve vola 
funkci CPRIK a podle Cisla pozadovaneho 
prikazu vyvola prislusnou proceduru (viz 
procedury provadejici prikazy ...). Po ukon- 
Ceni vyvolane procedury se Cinnost opakuje. 

Program/ GEK+ a ZCF jsou napsany 
v jazyce Pascal. Program GEK+ byl prelo¬ 
zen upravenym kompilatorem hpl 13 na po- 
CitaCi Spectrum 80 kB. Na Spectru 48 kB 
nelze program vzhledem k deice zdrojoveho 
textu a vysledneho kodu prelozit. Program 
ZCF Ize s jistymi omezenimi prelozit i v pa¬ 
meti 48 kB. Pouzity kompilator hpl 13 ma 
zabudovany nektere nestandardni procedu¬ 
ry, v ktere by bylo nutnC pri pouziti jineho 
prekladaCe doprogramovat: 

AT(R,S:INTEGER) presune pozici 

pro tisk na radek 
R a sloupec S. 

PLOT(X,Y,A:INTEGER) vytiskne bod 
o souradnicich 
X a Y, parametr 
A specifikuje bar- 
vu bodu. 


DRFT body se automa- 

ticky spojuji useC- 
kami. 

DOT ru§i uCinek 

DRFT. 

TOUT(Jm6no:ARRAY (1..8) OF CHAR; 
START, D£LKA:INTEGER) 

nahraje na mag- 
netofon specifi- 
kovany usek pa- 
mCti. 

TIN(Jm6no:ARRAY (1..8) OF CHAR; 
START:INTEGER nahraje data 

z magnetofonu 
do pamCti. 

Take v prikazu WRITE jsou pouzity nCkte- 
re nestandardni ridici kody: 

CHR(21 ),CHR(B) ekvivalent OVER B v BA- 
SICu. 

CHR(17),CHR(B) ekvivalent PAPER B 
v BASICu. 

Pri prenosu programu na jiny typ poCitaCe 
by bylo nutne upravit: 

- kontrolu souradnic v procedurach LINEK- 
RES, KRIZW, POHYBKUR podle rozliCova- 
ci schopnosti pouziteho poCitaCe, 

- souradnice pouzite pri volant' procedury AT 
podle poCtu zobrazitelnych radku a sloupcu, 

- adresu zaCatku a konce volne pamCti pro 
data v konstantach OFFSET a TOPMEM. 

Program ZCF je vystaven kolem ovIadaCe 
SUPERPLOT, ktery je dodavan se zapiso- 
vaCem XY 4131. V pripade pouziti jinCho 
zapisovaCe a tim i ovIadaCe by bylo nutnC 
preprogramovat procedury, ktere zajiSfuji 
predani parametru z Pascalu ovladafii: 

MA, VA, AC, OG, MF, CS, SC, ODVYS5. 
PodrobnS jsou tyto prikazy popsany v prirufi- 
ce k programovemu vybaveni zapisoyafie 
XY 4131. 

Pokud nekdo nebude schopen program 
sam prelozit, muze se obratit na autora 
o nahravku zkompilovaneho programu. 


10. Navaznost programu 
na kreslicf zanzenf 

Popis programu ZCF 

Pro prekresleni kresby zaznamenan6 pro- 
gramem GEK+ na souradnicov^m zapiso- 
vaci byl napsan dalsi krat§i program. Je 
vystaven kolem ovladaciho programu SU- 
PERPLOTT, ktery je dodavan spole6n§ se 
zapisovabem XY 4131. Bohuzel jsem nikdy 
nem§l moznost vyzkou§et tento program 
v originalni sestavd (pouzivam upraveny 
SUPERPLOTT pro ovladani zapisovafie 
pouze pres jediny osmibitovy port), proto 
nemohu stoprocentnd zarufiit bezchybnou 
spolupraci se zapisovadem XY 4131. 

Po nahrani programu prikazem LOAD"" se 
ZCF automaticky spusti. Nyni musime do 
programu nahrat vsechny bloky vytvofen6 


l.blok 2.blok n-ty blok 



| ENDOF 
OK(»).PRV|[Y(BIiOCI[) 
UK( 2).PRVKY(ARC) 
QK(2).PRVKY(LINE) 

0K(1).PRVKY(BL0CK) 

DK(1).PRVKY(TEXT) 

Obr. 1. Struktura da- °*( 1 ) -PRVKY(ARC) 

toveho pole (929-1 ) 0K(1).PRVKY(LINE) 


programem GEK+ nutne pro spravne zre- 
konstruovani kresby (viz kapitola 8.2). Na 
dotaz „Name“ napiseme' petiznakove jme- 
no souboru, ktery jsme pred tim zaznamena- 
li programem GEK+ prikazem SAVE 
a spustime magnetofon. Postupne budou 
nahrany tri bloky dat s potrebnymi udaji. 
Pokud je treba prihrat jeste dalsi soubor 
(soubory) jineho jmena, stiskneme Y a po- 
stup se opakuje az mame vsechruy potrebne 
bloky nahrany v pameti. 

Nyni program pozaduje tyto udaje: 

Scale m6fitko zvetseni kresby (men- 
si nez 1 ... zmenseni, vetsi 
nez 1 ... zvetseni). 

Origin X,Y souradnice vztazneho bodu 
- na tento bod pozdeji nastavi- 
me pisatko zapisovace a tim 
urcime polohu kresby na papi- 
re. 

Orientation 1 ... standardni kresba, 

2 ... kresba bude zrcadlove 

otocena podle osy X 

3 ... kresba bude otocena 

o 90° podle pocatku. 

Po zadani vsech techto udaju probehne 
inicializace zapisovace a pak program ceka, 
az pomoci klaves 5, 6, 7, 8 prip. +1 pro 
zrychleny pohyb nastavime pisatko do bodu, 
jez ma na papire odpovidat vyse zadanemu 
vztaznemu bodu. Jsme-li hotovi, stiskneme 
0. V tomto okamziku program zobrazi vsech- 
ny nahrane bloky a jejich poradova cisla 
a ceka na zadani poctu bloku, ktere chceme 
najednou vykreslit (ve vetsine pripadii jsou 
to jeden nebo dva napr. oboustranne desky 


plosnych spoju). Nyni postupne napiseme 
poradova cisla techto bloku tak, jak jsou 
uvedena na obrazovce. Pote program vypi- 
se zpravu ,,l am drawing" a kresli specifiko- 
vane bloky. 

Pozn.: 

I. Kresleni Ize kdykoliv preruSit klavesou 
SPACE. Po stisku kterekoliv jine klavesy 
kresleni pokracuje. 

ii. Volba Orientation pracuje spravne pouze 
s upravenym ovladacem zapisovace. Je-li 
nahran originalni ovladac, volba je ignorova- 
na. 


11. Ukazkovy soubor PLSSP 

Tento soubor nahrajeme do programu 
GEK+ (pripadne ZCF) prikazem LOAD 
(popr. vyse uvedenym postupem) a zadanim 
jmena PLSSP. Soubor obsahuje nekolik blo¬ 
ku: 

MALYB maly pajeci bod 0 1,25 mm, 
VELKYB velky pajeci bod 0 3 mm, 
DIL14S 'patice DIL 14 svisle, 

DIL14V patice DIL 14 vodorovne, 

DIL16S patice DIL 14 svisle, 

DIL16V patice DIL 14 vodorovne, 

OZ patice operacniho zesilovace 

(kulata), 

XI, X2 pomocne bloky, 

MRIZ5 pomocny rastr 5+5 mm, 

STRSPO priklad plosneho spoje vytvore- 
neho na 

STRSOU zaklade tohoto souboru pajecich 
bodu a patic. 


Vypis 1. Program GEK+ (929-V1) 


PROGRAM GEK; 

CONST OFFSET-+EA60; 

TOPMEM-^f-450; 

P8LMAX-80; 

POCPRIK-23; 

JMffiLKEM-83; 

TYPE LINET-RECORD 

X,Y:]NTEGER;END; 

ARCT-RECORD XC,YC,XS,YS.A,U =]NTEGE 
R;END; 

TEXTT-RECORD VEL1KOST:CHAR;XP,YP:] 
NTEGER;T:ARRAYtl..5] OF CHAR;END; 
0BJT-(L1NE,ARC,TEXT,BLOK); 
UKAZATELE-ARRAY[1..PBLMAX1 OF RE 


RVKY;ARRAY[LINE..BLOK] OF INTEGER; 

P 

OCET: ARRAY [LINE..BLOK] OF INTEGER; 

E 

ND; 

BL0KT-REC0RD X,Y:]NTEGER;C9.:CHAR; 

END; 

NAMET-ARRAY[1..101 OF CHAR; 

VAR X3,Y3,X4,Y4,PANX,PANY,GBL:INTEGER; 
SCALE:REAL; 

KRES;BOOLEAN; 

PLINE:L1NET;PARC=ARCT;PTEXT:TEXTT ; P 
BL0K:BL0KT; 

UK:UKAZATELE;ENDOF:1NTEGER; 

XCUR,YCUR,XCURS,YCURS,PB.AKT,WUA, 
MNUR:INTEGER; 

RYCHLOST]:ARRAYtt..3] OF RECORD 

XRY,YRY,P:]NTE 

GER;END; 

JMENA:ARRAY[1..JMCELKEM,1..6) OF CH 
AR; 

DP:ARRAYtl..31 OF INTEGER; 
CURBL0K,CURLT:INTEGER; 

C1SL0:INTEGER; 

FUNCTION L]NEKRES(XI,Y1,X2,Y2:INTEGER): 
BOOLEAN; 

VAR Ml,M2,XR,YR:REAL; 

N,M:INTEGER; 

B2:BOOLEAN; 


BEGIN 

XR:-((XI+PANX)*SCALE);YR;-((Y1+PANY)*S 
CALE); 

Ml:-((X2+PANX)»SCAL£);M2:-((Y2+PANY)*S 
CALE); 

L1NEKRES:-FALSE; 

B2:-((XR<0) AND (M1<0)) W ((XR>206) AN 
D (Ml>206)); 

B2:-B2 OR ((YR<0) AND (M2<0)) OR ((YR>1 
75) AND (M2>175)); 

]F NOT B2 THEN BEGIN 

M:-ROUND(SORT(SQR(X2-X1)+SQR(Y2-Y1))*SC 

ALE); 

IF M-0 THEN M:—1; 

Ml:-(X2-Xl)/M»SCALE;M2:-(Y2-Y1)/M*SCAL 
E; 

FOR N:—0 TO M DO BEGIN 
XI;"ROUND(XR);Y1:-R0UND(YR); 

IF (Xl>-0) AND (XI<-206) AND (Yl>-0) A 
ND (Y1<-175) AND KRES THEN PLOT(X1,Y1,0 
) ; 

IF (Xl>-X3) AND (XI<—X4) AND (Yl>-Y3) 
AND (Yl<—Y4) THEN L]NEKRES:-TRUE; 
XR:-(XR+M1);YR;-(YR+M2); 

END; 

END; 

END; 

FUNCTION LINETL(X1,Y1,X2,Y2,A:INTEGER): 
BOOLEAN; 

VAR N,M:INTEGER;M1,M2,XR,YR:REAL; 

BEGIN 

LINETL:-FALSE; 

N:-A MOD 100;A:-A DIV 100; 

Ml:-SORT(SQR(X2-X1)+SQR(Y2-Yl)); 

IF Ml-0 THEN Ml:-l; 

M2:-(Y2-Y1)/Ml»A*(N-l)/2; 

Ml:-(X2~Xl)/Ml»A*(N~l)/2; 

X2:-ROUND(X2-X1);XR:-(XI-M2); 

Y2:-ROUND(Y2-Y1);YR:-Y1+M1; 

IF N>1 THEN BEGIN Ml:-Ml/((N-1)/2);M2:- 
M2/((N - l)/2);END; 

FOR M:—1 TO N DO BEGIN 
XI :■-ROUND(XR);Y1 :-R0UND(YR); 

IF LINEKRES(X1,Y1,X1+X2,Y1+Y2) THEN L 
INETL:-TRUE; 

XR:-XR+M2;YR:-YR-M1; 

END; 

END; 

FUNCTION ARCKRES(AC:ARCT):BOOLEAN; 


VAR C,PR,PA,DA:REAL;N,M,D,E:INTEGER; 
BEGIN 

WITH AC DO BEGIN 
C:-U/l000; 

PR:-SORT(SQR(XS-XC)+SQR(YS-YC)); 

N:-ROUC (ABS(PR*SCALE*2*(C/6.28))); 
PA;-ARCTAN((YS-YC)/(XS-XC+0.01)); 

IF (XS-XC)<0 THEN PA:-PA+3.1415; 
ARCKRES:-FALSE; 

IF N-0 THEN ARCKRES:-LlNETL(XS,YS,XS, 
YS,A) 

ELSE BEGIN 
DA:-C/N; 

FOR M:-l TO N DO BEGIN 
D:-ROUND(PR*C0S(PA+DA)+XC);E:-ROUND 
(PR*SIN(PA+DA)+YC); 

IF LINETL(ROUND(XC+PR*COS(PA)) ,R(XM)(YC 
fPR*SIN(PA)),D,E,A) THEN ARCKRES -.-TRUE ; 
PA :■-PA+DA; 

END; 

END; 

END; 

END; 

FUNCT1ON TEXTKRES(TXT:TEXTT):BOOLEAN; 
VAR SKV,SKD,M:INTEGER; 

BEGIN 

WITH TXT DO BEGIN 
9<V:-ORD(VEL1KOST)*4;SKD:-0; 

FOR M:—1 TO 5 DO BEGIN 
IF (TtMIo 1 •) AND (TtM]oCHR(13)) T 
HEN SKD:-SKD+SKV;END; 

TEXTKRES:-FALSE; 

IF L3NEKRES(XP,YP,XP+SKD,YP) THEN TEX 
TKRES:-TRUE; 

IF LINEKRES(XP+SKD,YP,XP+SKD,YP+SKV) 
THEN TEXTKRES:-TRUE; 

1F L 3 NEKRES(XP+SKD,YP+SKV,XP,YP+SKV) 
THEN TEXTKRES:-TRUE; 

IF L1NEKRES(^P,YP+SKV,XP,YP) THEN TEX 
TKRES:-TRUE; 

END; 

END; 

PROCEDURE LD1R(HL,DE,BC:INTEGER); 

BEGIN 

IF BO0 THEN BEGIN 

POKE (23600, UJ; POKE (23602, DE); POKE (2 
3604,BC); 

INLINE (+2A,*30,*5C,*ED,*58,*32,+5C,*ED 
,+4B,*34,*5C); 

INLINE !*ED,*B0); 

END; 

END; 

PROCEDURE LDDR(HL,DE,BC:1NTEGER); 

BEGIN 

IF BO0 THEN BEGIN 

POKE(23600, FL);POKE(23602,DE);POKE(2360 
4,BC); 

INLINE (♦2A,*30,+5C,*ED,+5B,*32,+5C,+ED 
,*4B,+34,*5C); 

INLINE (♦ED,*B8); 

END; 

END; 

FUNCTION POCETPRVKU(0_OK:INTEGER;08J:OB 
JT):INTEGER; 

BEGIN 

POCETPRVKU:-UK \ BLOKI.POCET[OBJI; 

END; 

PROCEDURE POINTERS(BL,M:INTEGER;08J:08J 
T) ; 

VAR N;INTEGER; 

POBJ:0BJT; 

BEGIN 

IF 0BJ<BL0K THEN BEGIN 
FOR P0BJ;-SUCC(0BJ) TO BLOK DO 
UKtBLI.PRVKYfPOBJI:-UK[BLI.PRVKYtPOBJ 
I+M; 

END; 

IF BL<PBLMAX THEN BEGIN 
FOR N:-BL+1 TO PBLMAX DO BEGIN 
FOR POBJ:-LINE TO BLOK DO 
UK[NI.PRVKY[PC8JI:-UK[N).PRVKYtPOBJ) 
+M; 

END; 

END; 

ENDOF:-END0F+M; 

END; 

PROCEDURE ADLEN(OBJ:OBJT;VAR N,M=1NTEGE 
R); 

BEGIN 

CASE OBJ OF 

LINE:BEGIN N:-ADDR(PLINE);M:-4;END; 

ARC:BEG 3 N N:-ADDR(PARC);M:-12;END; 


TEXT:BEGIN N:-ADDR(PTEXT);M:-10;END; 
BLOK:BEGIN N:-ADDR(PBLOK);M:-5;END 
END; 

END; 

PROCEDURE NPRVEK(BL,0:INTEGER;OBJ:OBJT) 

VAR N,f1: INTEGER; 

BEGIN 

ADLEN(OBJ,N,M); 

1_D1R( (0-1)»M+LB<tBL] .PRVKYfOBJI,N,M); 
END; 

PROCEDURE VLOZtBL:INTEGER;OBJ:08JT); 

VAR N,M:INTEGER; 

BEGIN 

IF ENDOF<TOPMEM THEN BEGIN 
ADLEN(08J,N,M); 

WITH UKIBL1 DO BEGIN 
LDDR(ENDOF,ENDOF+M,ENDOF-PRVKYIOBJ HI 
»P0CET(08J)+1); 

LD1R(N,PRVKY[0BJ1+M*P0CET[08J1,M); 
POCET [ OB J1: -POCET [OBJI+l; 

END; 

P01NTERS(BL,M,0BJ);END 
ELSE BEGIN 

AT(22,0);WR1TE('Memory full !!! 

');END; 

END; 

PROCEDURE SMAZ(BL,M: INTEGER;OBJ :08JT) ; 
VAR N,0:INTEGER; 

BEGIN 

ADLEN(08J,0,N); 

WITH UKtBLI DO 

LD1R(PRVKY[0BJ1+M*N,PRVKY(0BJ)+(M-1)*N, 
ENDCF-PRVKY [ OBJ I-M*N); 

N=—N;POINTERS(BL,N,OBJ); 

UK(BL) .POCETtOBJI :-UK[BL) .POCETIOBJl-1 ; 
END; 

PROCEDURE ZMEN(BL,0:INTEGER.OBJ:06JT); 
VAR M.N:INTEGER; 

BEGIN 

ADLEN(OBJ.N.M); 

LD1R(N,UKIBLl.PRVKY[0BJ)+M*(0-1) ,M) ; 
END; 

FUNCTION BLOKKRES(BLK:BLOKTI:BOOLEAN; 
VAR XI, Y1 ,X2,Y2,f1,N,A,BL; INTEGER; 

BEGIN 

8L:-0RD(BLK.CBL); 

BLOKKRES:-FALSE; 

N:-POCETPRVKU(BL,L1NE);M:-1; 

WHILE N>0 DO BEGIN 
NPRVEK(BL,M,L1NE); 

IF PL1NE.X-MAXINT THEN BEGIN 
A:-PL1NE.Y; 

NPRVEK(BL,M+1 .LINE) ; 

XI:-PLlNE.X;Yl:—PL1NE.Y; 

NPRVEK(BL,M+2,LINE); 

X2:-PLINE.X;Y2:-PL3NE.Y; 

M:-M+2;N:-N-2; 

END 

ELSE BEGIN 

XI:-X2;Y1:-Y2;X2:-PLlNE.X;Y2:-PLlNE. 

Y; 

END; 

IF LINETL(X1+BLK.X.Y1+BLK.Y.X2+BLK,X,Y 
2+BLK.Y.A) THEN BEGIN 
BLOKKRES:-TRUE; 

IF (GBL-BL) AND (KRES-FALSE) THEN 

BEGIN 

PL1NE.X:-PL1NE.X+20000;ZMEN(BL, 
M,L1NE);END; 

END; 

N:-N-i;M:-M+1; 

END; 

N:■-POCETPRVKU(BL,ARC);XI:-BLK.X;Y1:-BLK 
•Y; 

IF N>0 THEN BEGIN 
FOR M:-1 TO N DO BEGIN 
NPRVEK(BL,M,ARC); 

WITH PARC DO BEGIN 
XC:-XC+X1;YC=-YC+Y1; 

XS:-XS+X1;YS:-YS+Y1; 

END; 

IF ARCKRES(PARC) THEN BEGIN 
BLOKKRES:-TRUE;NPRVEK(BL,M,ARC); 

IF (GBL-BL) AND (KRES-FALSE) THEN BE 
GIN 

PARC.XC:-PARC.XC+20000;ZMEN(BL,M,AR 
C);END; 

END; 

END; 

END; 


N:-POCETPRVKU(BL,TEXT); 

IF N>0 THEN BEGIN 
FOR M:-1 TO N DO BEGIN 
NPRVEK(BL.M,TEXT); 

WITH PTEXT DO BEGIN 
XP:—XP+X1;YP:-YP+Y1;END; 

IF TEXTKRES(PTEXT) THEN BEGIN 
BLOKKRES:-TRUE;NPRVEK(BL.M,TEXT); 

IF (GBL-BL) AND (KRES-FALSE) THEN BEG 
IN 

PTEXT.XP:-PTEXT.XP+20000;ZMEN(BL,M,T 
EXT);END; 

END; 

END; 

END; 

N: -POCETPRVKU (Bj., BLOK) ; 

IF N>0 THEN BEGIN 
FOR M:-1 TO N DO BEGIN 
NPRVEK(BL.M.BLOK); 

WITH PBLOK DO BEGIN 
X:—X+Xl;Y:—Y+Y1;END; 

IF BLOKKRES(PBLOK) THEN BEGIN 
BLOKKRES:-TRUE:NPRVEK(BL.M.BLOK); 

IF (GBL-BL) AMD (KRES-FALSE) THEN BE 
GIN 

PBLOK.X:-PBLOK.X+20000;ZMEN(BL.M.BL 
OK);END; 

END; 

END; 

END; 

END; 

PROCEDURE KRESL3(BK:BLOKT;KR:BOOLEAN); 
VAR RESS:BOOLEAN; 

BEGIN 

KRES;-KR;GBL:-ORD(BK.CBL); 

RESS :■-BLOKKRES (BK); 

KRES:-TRUE; 

END; 

PROCEDURE PAUSE(N:1NTEGER); 

VAR M:INTEGER; 

BEGIN 

FOR M:-1 TO N DO 
END; 

PROCEDURE DRAW(X,Y,X1,Y1:INTEGER;0=1NTE 
GER); 

BEGIN 

DRFT;PL0T(X,Y,0);PL0T(X1,Y1,0);D0T; 

END; 

PROCEDURE KURZOR(X,Y:3NTEGER); 

BEGIN 

DRAW(X-2,Y,X+2,Y,?);DRAW(X,Y-2,X,Y+2,9 

) ; 

END; 

FUNCTION POHYBKUR(XR,YR:INTEGER;KR:BOOL 
EAN):CHAR; 

VAR A=CHAR; 

TIME,R,N:INTEGER; 

PROCEDURE KRIZW; 

BEGIN 

KURZOR(XCUR,YCUR); 

DRAW(XCUR,1,XCUR,175,?);DRAW(1,YCUR,20 
7,YCUR,9); 

IF KR THEN BEGIN 

DRAW(XR,YR,XR,YCUR,?).DRAW 
(XR,YR,XCUR,YR.9);END; 

END; 

BEGIN 

R:-0;TlME:-0; 

REPEAT 

A:-INCH; 

IF A-CHR(0) THEN BEGIN 
REPEAT 

A:-INCH;TIME:-TIME+1; 

IF TJME>3500 THEN KGIN 
KRIZW;TIME:-0; 

REPEAT 

A:-1NCH; 

U4T1L A<>CW(0); 

KRIZW;END; 

UNTIL A<>CHR(0); 

T1ME:-0;R:-0;END; 

R:-R+RYCHLOST1(R D1V 20+11.P; 

IF A-'O' THEN XCUR:-XCUR-RYCHLOST11R D 

3V 20+D.XRY; 

IF A-’P* THEN XCUR:-XCUR+RYCHLOST1(R D 
IV 20+11.XRY; 

IF A-'Q' THEN YCUR:-YCUR+RYCHLOST3[R D 
IV 20+ll.YRY; 

IF A-'A' THEN YCUR:-YCUR-RYCH-OSTJ[R D 
IV 20+ll.YRY; 

IF (XCUR<2) OR (XCUR>205) OR (YCUR<2) 


OR (YCUR>173) THEN BEGIN 

XCUR:-XCURS;YCUR:-YCURS;EM) ; 
WR]TE(CHR(21),CHR(0));AT(0,0);WR]TE(((X 
CUR-PANX »SCALE)/SCALE*0.125):8:3); 

AT(0,10),WR]TE(((YCUR-PANY*SCALE)/SCALE 
*0.125):6;3); 

KURZOR(XCURS,YCURS);KURZOR(XCUR,YCUR); 
XCURS:-XCUR;YCURS:-YCUR; 

PAUSE(900); 

UNTIL NOT((A-'0') OR (A-'P') OR (A-'Q 1 ) 
OR (A-'A 1 )); 

POHY BKUR : - A; WR ]'T E (CHR (21), CM (0)) ; 
REPEAT UNTIL INCH-CHR(0); 

END; 

PROCEDURE ZOBRAZCAST(C-INTEGER);FORWARD 

PROCEDURE OBNOVNAP1S;FORWARD; 

PROCEDURE ZOBRAZCAST; 

VAR N:INTEGER; 

BEGIN 

WRITE(CHR(21),CHR(0)); 

FOR N:-C TO C+16 DO BEGIN 
AT(N-C+2 ,26); 

IF N>PBLAKT+POCPRIK THEN WR1TE(' 


ELSE WR1TE(JMENAfN 

1); 

END; 

END; 

PROCEDURE INVERSE(C:INTEGER;SW:BOOLEAN) 

BEGIN 

<AT(C,26); 

IF SW THEN WR 1TE(Cf-ff?(17) ,CHR(2)) 

ELSE WR1TE(CHR(17),CHR(0D); 

WRITE(CHR(21),CHR(1),' '); 

WRITE(CHR(21),CHR(0),CHR(17),CHR(0)); 
END; 

FUNCTION FCEMNUtB:INTEGER):CHAR; 

VAR A:CHAR; 

BEGIN 

IF WAJA<B THEN BEGIN 
MNUA:-B;ZOBRAZCAST(MNUA);END; 

1NVERSE(MNUR+2,TRUE); 

FEPEAT UNTIL 1NCH-CHR(0); 

REPEAT 
REPEAT 
A :-INCH; 

UNTIL A<>CHR(0); 

IF A-'O 1 THEN BEGIN 
MNUA:-MNUA-10; 

IF MNUA<B THEN MNUA;-B; 

ZOBRAZCAST(MNUA);3 NVERSE(MNUR+2,TRUE) 
;END; 

IF A-'P' THEN BEGIN 
MNUA:-MNUA+10; 

IF MNUAXPBLAKT+POCPRIK-U) THEN MNUA 
:-PBLAKT+POCPR]K-1&; 

ZOBRAZCAST(MNUA);1NVERSE(MNUR+2,TRUE) 
;END; 

IF A-'Q' THEN BEGIN 
MNUR:-WUR-1; 

IF MNUR<0 THEN MNUR:-0; 

3 NVERSE(rMJR+3,FALSE);3 NVERSE(MNUR+2, 
TRUE);END; 

IF A-'A’ THEN BEGIN , 

MNUR:-WUR+1; 

IF MNUR>l6 THEN rMJR:-U; 

INVERSE(MNUR+1.FALSE);INVERSE(MNUR+2, 
TRUE);END; 

PAUSE(900); 

UNTIL NOT((A-'0‘) OR (A-'P') OR (A-'Q') 
OR (A-'A')); 

FCEmU: -A; 1 NVERSE (MNUR+2, FALSE); 

REPEAT UNTIL 1NCH-CHR(0); 

IF (MNUA+MNUR<8) OR (MNUA+MNUR>P0CPR3K+ 

PBLAKT) THEN BEGIN 

MNUA:-B;MNUR:-0;ZOBRAZCAST(B);END; 

END; 

PROCEDURE OBNOVNAP 3 S; 

BEGIN 

AT(22,0);WR]TE(JMENAfDPdII,' MENU ', 
JMENAIDP(2)1,' 1 ,JMENA(DP(3)I); 

END; 

FUNCT3W CPR1K(A:CHAR);INTEGER; 

BEGIN 
CPR1K:—0; 

IF A-'X' THEN BEGIN 

AT(22,0);WR3TE('SELECT CREATE DEFINE S 
ELECT'); 

A:-FCEMNU(1); 



IF (A-'Z') OR (A-'M') THEN CPR1K:-MNUA 
+MNUR; 

IF A-'N' THEN BEGIN 
AT(22,0);WR]TE('Select key (Z,N,M) 

'); 

REPEAT UNTIL INCH<>CHR(0); 

A:-1NCH; 

IF A-'Z' THEN DP111:-MNUA+MNUR; 

IF A-'N’ THEN DP(21:-MNUA+MNUR; 

IF A-’M' THEN DPI3I:-MNUA+MNUR; 

REPEAT UNTIL 1NCH~CHR(0); 

END; 

06N0VNAPIS;END 
ELSE BEGIN 

IF A-’Z 1 THEN CPR1K:-DP(11; 

IF A-’N' THEN CPRIK:-DPI23; 

IF A-'M' THEN CPRIK:-DPt31; 

END; 

END; 

PROCEDURE INITIAL;. 

PROCEDURE 3N3TD3SP; 

BEGIN 

PANX:-500;PANY:-400 ; SCALE:—1/5;KRES:-T 
RUE; 

X3:-0;Y3:-0,X4:-100;Y4:-100; 

END; 

PROCEDURE INJTDM; 

VAR N:INTEGER;POBJ:OBJT; 

BEGIN 

FOR N1 TO PBLMAX DO BEGIN 
FOR P0BJ:-L1NE TO BLOK DO BEGIN 
UKENI.PRVKYIPOBJI:-OFFSET; 

IKINl.POCETIPOBJI:-0; 

END; 

END; 

ENDCf:-OFFSET; 

END; 

PROCEDURE 1NITMNU; 

BEGIN 

XCUR:-100;XCURS:-100;YCUR:-80;YCURS:-80 

RYCH.OST1[1].XRY:-1;RYCHLOSTI[11.YRY:-1 
; RYCHLOST I Ml. P:-4; 

RYCHLOST1121.XRY:-2;RYCHLOST1121.YRY:-2 
;RYCHLOST1121.P:-2; 

TTfCHLOST1[3I.XRY:-7;RYCHLOSTI[31.YRY:-7 
;RYCH-OSTlI3I.P:-0; 

PAGE;KURZOR(XCUR,YCUR); 

PBLAKT:-0;CURBLOK:-1;CURLT:-101; 

FOR GBL :-1 TO JMCELKEM DO JMENAIGBLI: -' 

JflENAM 3 :-’OPEN '; JMENA 121 :-'CURR ’;J 
MENAC5I:-'MOVE ’; 

JMENAI61:-’COPY ;JMENAI7I:-'ERASE ’;J 

MENAC8I:-’L.TYPE'; 

JMENA1111:-'ZOOM ';JMENAI12I:-'PAN 

JMENAI131 :-'CURSOR'; JMENAI15I -.-'SAVE ' 

jfCNAll^I :-'LOAD '; JMENAM91 :-'L3NE ’ 

JICNAI20I:-'ARC ';JMENA1211:-'TEXT ’ 

JMENAI241: — ’b1o L 1'; 

JMENAM83def18'; JMENAI221de|22' 

POKE!2365?,CHRI1 ))• 

ttJUA:-1;MNUR:-15;ZOBRAZCAST(1); 

DPI13:-7;DPI2121;DPI3I 
OBNOVNAPIS; 

END; 

BEGIN 

1N3TDISP; 

1N3TDM; 

3N1TMNU; 

END; 

PROCEDURE KUR; 

BEGIN KURZOR(XCUR,YCUR);WR3TE(CHR(21),C 
Hfl(0));END; 

FUNCTION XSK:INTEGER; 

BEGIN 

XSK = -ROUND((XCUR-PANX *SCALEI/SCALE);END 

FUNCTION YSK:INTEGER; 

BEGIN , 

YSK:-ROUND((YCUR-PANY *SCALE)/SCALE);END 

PROCEDURE PRLINE; 

VAR A:CHAR; 

XM,YM;INTEGER; 

B:BOOLEAN; 


BEGIN 

PL3NE.X:-MAXINT; Ft 3NE.Y:-CURLT;VLOZ(CUR 
BLOK.LINE); 

PL1NE.X:-XSK;PLINE.Y:-YSK;XM:-XSK;YM:-Y 
SK;VLOZ(CURBLOK,LINE); 
AT(22,0);WR1TE(’T O point 
'); 

A:-POHYBKUR(0,0,FALSE); 
PLINE.X:-XSK;PLINE.Y:-YSK; 

KUR; 

B:-L3NETL(XM,YM,XSK,YSK,CURLT);VLOZ(CUR 
BLOK,LJNE); 

KUR; 

XM:—XSK;YM:—YSK; 

AT(22,0) ;WRITE( 'END Next ') ; 

WHILE NOT(POHYBKUR(0,0,FALSE)-'Z') DO B 
EG1N 

PLINE.X:-XSK;PL 1NE.Y:-YSK;VLOZ(CURBLOK 
.LINE); 

KUR; 

B:-LINETL(XM.YM,XSK,YSK,CURLT);XM:-XSK 
;YM:—YSK; 

KUR; 

END; 

OBNOVNAPIS; 

END; 

PROCEDURE PRARC; 

VAR F:CHAR;B:BOOLEAN; 


BEGIN 

AT(22,0);WR1TE('Center point 

F:-POHYBKUR(0,0,FALSE); 

PARC.XC:-XSK;PARC.YC:-YSK; 
AT(22,0);WR1TE('Stori point 


F:-POHYBKUR(0,0,FALSE); 

PARC.XS:-XSK;PARC.YS:-YSK; 
AT(22,0);WR]TE('Enter angle ’); 
AT(22,13);READLN;READ(PARC.U); 

PARC.U = -ROUND(PARC.U/180 *3.1415*1000); 


PARC. A :■-CURLT; 


KUR; 

VLOZ(CURBLOK,ARC);B:-ARCKRES(PARC);OBNO 
VNAPJS; 

KUR; 


END; 

PROCEDURE PRTEXT; 
VAR B:BOOLEAN; 
C:REAL; 


BEGIN 

AT(22,0);WR3TE('Enter text 
'); 

AT(22,12);READLN;READ(PTEXT.T); 
AT(22,0);WR]TE( 'Size mn. 

'); 

AT(22,5);READLN;READ(C); 

PTEXT.VEL1KOST:-CHR(ROUND(ABS(C)»2)); 
PTEXT.XP:-XSK,PTEXT.YP:-YSK;VLOZ(CURBLO 
K.TEXT); 

KUR; 

B:-TEXTKRES(PTEXT); 

KUR; 

OBNOVNAPIS; 

END; 

PROCEDURE PRBLOK(A:INTEGER); 

VAR B:BOOLEAN; 

BEGIN 

IF (A>POCPRIK) AND (A<-POCPR3K+PBLAKT) 
AND (AoCURBLOK+POCPRIK) THEN BEGIN 
PBLOK.X:-XSK;PBLOK.Y:-YSK;PBLOK.CBL:-C 
HR(A-POCPRJK); 

KUR; 

VLOZ(CURBLOK,BLOK);B:-BLOKKRES(PBLOK); 
KUR; 

END; 

END; 

PROCEDURE CLWA; » 

VAR N:INTEGER; 

BEGIN 

WR]TE(CHR(21),CHR(0)) ; 

FOR N:—0 TO 21 DO BEGIN 
AT(N,0);WR1TE(' 

’); 

END; 

END; 

PROCEDURE REDRAW; 

BEGIN 

PBLOK.X:-0;PBLOK.Y:-0;PBLOK.CBL:-CHR(C 
URBLOK); 

KRESLI(PBLOK,TRUE); 

KUR; 

END; 


PROCEDURE PRCURR; 

VAR A;CH»R; 

N,M:INTEGER; 

BEGIN 

AT(22,0);WR]TE( 1 Beckqr. Current block 
'); 3 

CLWA; 

REPEAT 

A:-FCEMNU(POCPRIK+1); 

IF A-'Z' THEN BEGIN 

CURBLOK:-MNUA+MNUR-POCPR1K; 
REDRAW; 

FOR N:-0 TO 103 DO BEGIN 
FOR M:-0 TO 87 DO BEGIN 
PLOT(N»2,M»2,0);PLOT(N»2,Mt2,?) 

PLOT(N*2+1,M»2+1,0);PLOT(N*2+1, 
M*2+l,?); 

END; 

END; 

END 

ELSE BEGIN 

CURBLOK:-TMJA+MNUR-POCPRIK;REDRAW 

.END; 

UNTIL NOT(A-'Z'); 

OBNOVNAPIS; 

END; 

PROCEDURE PROPEN; 

BEGIN 

IF P8LAKT-PBLMAX THEN BEGIN 

AT(22,0);WR1TE('Too many blocks 

PAUSE(30000);END 
ELSE BEGIN 

PBLAKT :-PBLAKT+1 ,-CURBLOK:-PBLAKT; 
AT(22,0);WR]TE('Name 
’); 

AT(22,6);READLN;READ(JMENA(POCPRI 
K-tCURBLOK]); 

ZOBRAZCAST(PBLAKT+POCPRIK-15),CLW 
A; 

END; 

OBNOVNAPIS;KUR; 

END; 

PROCEDURE WINDOW;FORWARD; 

PROCEDURE ZJISTILKBL.P: INTEGER, VAR N,M 
:INTEGER); 

VAR 0:INTEGER; 

BEGIN 

N:-P; 

REPEAT 

N:-N-1 .•HPRVEKfBL.N.LlNE) ; 

UNTIL PLINE.X-MAXINT; 

M: ■-P;0:-POCETPRVKU(BL,LINE); 

REPEAT 

M:-M-r 1; NPRVEK (BL, M, LI NE) ; 

UNTIL (PLINE.X-MAXINT) OR (M-0+1); 
M:-M-1; 

END; 

PROCEDURE ERASE(BL:INTEGER); 

VAR M,N,0:INTEGER; 

OBJ:OBJT; 

BEGIN 

WINDOW; 

M:-1; N :■-POCETPRVKU (BL, LI NE) ; 

WHILE N>0 DO BEGIN 
NPRVEK(BL,M,LINE); 

IF (PUNE.X>10000) AND (PLINE.X<MAXINT 
) THEN BEGIN 

ZJIST1LI(BL,M,N,0); 

FOR M:-N TO 0 DO SMAZ(BL,N,LINE); . 

N:-POCETPRVKU(BL,LINE)t1;M:-0; 

END; 

N:-N-1;M:-M+1; 

END; 

FOR OBJ:-ARC TO BLCK DO BEGIN 
M : —1 ; 

FOR N=-l TO POCETPRVKU(BL,OBJ) DO BEGI 
N 

NPRVEK(BL,M,OBJ); 

CASE OBJ OF 
ARC:0:-PARC.XC; 

TEXT:0:-PTEXT.XP; 

BL0K:0:-PBL0K.X 

EH); 

IF 0>10000 THEN BEGIN 
SMAZ(BL,M,OBJ);M:-M-1;END; 

M:-M+l; 

END; 

END; 

CLWA;REDRAW;OBNOVNAP1S; 

END; 






PROCEDURE WINDOW; 

VAR A-CHAR; 

XR.YR:INTEGER; 

BEGIN 

AT(22,0);WR1TE('Left down corner 
'); 

A:-POHYBKUR(0,0,FALSE); 

X3:-XCUR;Y3=-YCUR;XR:-XCUR;YR:-YCUR; 
AT(22,0);WR1TE('Right up corner '); 

A:-POHYBKUR(XR,YR,TRUE); 

X4:-XCUR;Y4:-YCUR; 

PBLOK. X :■-0; PBLOK. Y :<-0; PBLOK. CBL: -CHR (CU 
RBLOK); 

KRESL](PBLOK,FALSE); 

END; 

PROCEDURE PMCZAC; 

VAR A:CHAR; 

XR.YR:INTEGER; 

BEGIN 

WINDOW; 

AT(22,0);WR1TE('New left down corner 
'); 

A:-POHYBKUR(0,0,FALSE); 

X4:-ROUND((XCUR-PANX *SCALE)/SCALE)-ROUN 
D((X3-PANX*SCALE)/SCALE); 

Y4:-ROUND((YCUR-PANY*SCAL£)/SCALE)-ROUN 
D((Y3-PANY*SCALE)/SCALE); 

END; 

PROCEDURE MOVECOPY(MOVE:BOOLEAN;BL,DX,D 
Y:INTEGER); 

VAR M,N,0,P,Q;INTEGER; 

OBJ : OBJT; 

BEGIN 

Q:-POCETPRVKU(BL,LINE); 

FOR N:—1 TO Q DO BEGIN 
NPRVEK(BL,N,L1N£);' 

IF (PLINE.X>10000) AND (PL1NE.X<MAX3NT 
5 THEN BEGIN 
ZJISTILI(BL,N,M,0); 

IF MOVE-FALSE THEN BEGIN NPRVEK(BL,M, 
LINE);VLOZ(BL,LINE);END; 

FOR P:-Mt1 TO 0 DO BEGIN 
NPRVEK(BL,P,LINE); 

IF PLINE.X>10000 THEN PLINE.X:-PLlNE 
.X-20000; 

ZMEN(BL,P,LINE); 

PLINE.X--PLINE.X+DX,PLINE.Y:-PL)NE.Y 
•tDY; . 

IF MOVE THEN ZMEN(BL,P,LINE) 

ELSE VLOZ(BL.LINE); 

END; 

END; 

END; 

FOR OBJ:-ARC TO BLOK DO BEGIN 
Q:-POCETPRVKU(BL,08J); 

FOR N:-l TO Q DO BEGIN 
NPRVEK(BL,N,OBJ); 

CASE OBJ OF 

ARC:0:-PARC.XC; 

TEXT:0:-PTEXT.XP; 

BLOK:0:-PBLOK.X 
END; 

IF O>10000 THEN BEGIN 
CASE OBJ OF 
ARC:BEGIN 

PARC.XC:-PARC.XC-20000;ZMEN(B 

L,N,OBJ); 

WITH PARC DO BEGIN 
XC:-XC+DX;YC;-YC+DY; 
XS:-XS+DX;YS:-YS+DY; 

END; 

END; 

TEXT:BEGIN 

PTEXT.XP:-PTEXT.XP-20000;ZMEN 
(BL,N,OBJ); 

PTEXT.XP:-PTEXT.XP+DX;PTEXT.Y 
P:-PTEXT.YP+DY; 

END; 

BLOK:BEG IN 

PBLOK.X:-PBLOK.X-20000;ZMEN(B 

L,N,OBJ); 

PBLOK.X:-PBLOK.X+DX;PBLOK. Y: - 
PBLOK.Y+DY ; 

END 

END; 

IF MOVE THEN ZMEN(BL,N,OBJ) 

ELSE VLOZ(BL,OBJ); 

END; 

END; 

END; 

CLWA;REDRAW;OBNOVNAPIS; 

END; 


PROCEDURE VYPAN(ZPX,ZPY:REAL);FORWARD; 
PROCEDURE PRL3NETYPE; 

VAR A: INTEGEtf; 

BEGIN 

AT(22,0);WR1TE(’Number of pereel line* 
'); 

AT(22,24) ; READLN;READ(A); 

IF (A>??) OR (A<1) THEN A:-1; 

CURLT;-A; 

AT(22,0);WR]TE('Distance between lines 
'); 

AT(22,24);READLN;READ(A); 

IF (A>?9) OR (A<0) THEN A = -l; 

CURLT:-CURLT+A*100; 

OBNOVNAPIS; 

END; 

PROCEDURE PRPAN; 

VAR ZPX,ZPY:REAL; 

BEGIN 

AT(22,0);WR1TE('Enter X coord. 

'); 

AT(22,17);READLN;READ(ZPX); 
AT(22,0);WR1TE('Enter Y coord. 

'); 

AT(22,17);READLN;READ(ZPY); 

ZPX: --ZPX; ZPY: —ZPY ; 

VYPAN(ZPX,ZPY); 

CLWA;REDRAW;OBNOVNAP1S; 

END; 

PROCEDURE PRZOOM; 

VAR SC,ZX,ZY:REAL; 

BEGIN 

REPEAT 

AT(22,0);WR1TE('Enter sole 1: 

' ) ; 

AT(22,14).READLN;READ(SC); 

UNTIL (SO-1) AND (SC<100); 

SC=-1/SC; 

ZX:-(PANX-100/SCALE) /8; 

ZY:-(PANY-80/SCALE)/8; 

SCALE:-SC; 

VYPAN(ZX,ZY); 

CLWA;REDRAW;OBNOVNAP1S; 

END; 

PROCEDURE VYPAN; 

BEGIN 

PANX;-ROUND(ZPX » 8+100/SCALE); 

PANY:-ROUND(ZPY * 8+ 80/SCALE), 

END; 

PROCEDURE PRSAVE; 

VAR A;CHAR; 

OD.DOB:INTEGER; 

NAME:ARRAY(1..8) OF CHAR; 

BEGIN 

NAME:-' 

AT(22,0);WRITE('First block 
'); 

A:-FCEMNU(P0CPR]K+1); 

OD:-MNUA+MNUR; 

AT(22,0);WR1TE(' List'); 

A:-FCEMNU(OD); 

DOB:-mUA+MNUR; 

AT(22,0);WR]TE('Name ’); 

AT(22.5);READLN;READ(NAME); 

NAMEI61';NAME[71J';NAMEf81:-'M’; 
TOUT(NAME,ADDR(JMENA)+6»(0D~1),(DO0-O 
D+1)); 

OD:-OD-POCPR 3 K;DOB:-DOB-POCPRIK; 
NAME[7]:-’U';NAMEt8):-'K’; 

TOUT(NAME,ADDR(UK)+16*(OD-1),16«(DOB-OD 
-Ml); 

NAME(7I:-'V';NAMEt81=—'S'; 

TOUT(NAME,UK[0D1.PRVKYtLINEI,UK[D0B+11. 
PRVKYtLlNEI-UKEODI.PRVKYILINEI); 

PAGE; 

ZOBRAZCAST(MNUA);OBNOVNAP 3 S; 

PBLOK.X:-0;PBLOK.Y:-0 ; PBLOK.CBL:-CHR(CU 
RBLOK); 

KRESL1(PBLOK,TRUE);KURZOR(XCUR,YCUR); 
END; 

PROCEDURE PRLOAD; 

VAR N.M.DIF:INTEGER; 

NAME;ARRAY(1..81 OF CHAR; 

POBJ;OBJT; 

BEGIN 

NAME:-' 

AT(22,0);WR1TE('Name 
'); 

AT(22,5);READLN;READ(NAME); 

NAMEI6)';NAME[7I:-'J';NAME[8I:-'M'; 
AT(22,0); 


T1N(NAME,ADDR(JMENA)+6 *(POCPR1K+PBLAKT) 

) ; 

N: -PBLAKT+POCPR1 K-»-1 ; 

WHILE (N<-JMCELKEM) AND (JMENA(N)o' 

’) DO N:-N+l; 

N:-N~1-POCPR]K; 

NAME(73:-'U*;NAME(81:-'K'; 

T1N(NAME,ADDR(UK)tl6»PBLAKT); 

DIF:-UK[PBLAKT+11.PRVKY(L1NEI-ENDOF; 

IF UKIN1.PRVKYIBLOK1+5*UKINI.POCETtBLOK 
1-D1F<T0PMEM Th€N BEGIN 
FOR M:-PK-AKT+l TO N DO BEGIN 
FOR POBJ:-LINE TO BLOK DO 
UKtMI.PRVKYIPOBJI:-UKIM).PRVKYfPOBJl- 
D1F; 

END; 

DIF:-UK(Nl.PRVKY[BLOK 1+5*UK(N1.POCETIBL 
OKI; 

IF N<PBLMAX Th€N BEGIN 
FOR M:-N+1 TO PBLMAX DO BEGIN 
FOR POBJ:-LINE TO BLOK DO UKtMI.PRVKY 
[POBJ1:-D1F; 

END; 

END; 

NAMEI71:-'V';NAMEt8I:-'S'; 
TIN(NAME,ENDOF); 

PBLAKT :-N;ENDOF:-DIF; 

END 

ELSE BEGIN 

AT(22,0);WR1TEC'No memory for file 
'); 

PAUSE(30000);END; 

PAGE; 

ZOBRAZCAST(MNUA);OBNOVNAPIS; 

PBLOK.X:-0;PBLOK.Y:-0;PBLOK.CBL:-CHR(CU 
RBLOK); 

KRESLI(PBLOK,TRUE);KURZOR(XCUR,YCUR); 
END; 

BEGIN 

INITIAL; 

REPEAT 

CISLO:-CPRIK(POHYBKUR(0,0,FALSE)); 

IF CISLO-1? THEN PRUhE; 

IF C1SLO-20 THEN PRARC; 

IF C1SL0-21 THEN PRTEXT; 

IF C1SLOPOCPR1K THEN PRBLOK(CISLO) ; 

IF CISLO-1 THEN PROPEN; 

IF C3SLO-2 THEN PRCURR; 

IF C1SL0-7 THEN ERASE(CURBLOK); 

IF CISLO-5 THEN BEGIN 

PMCZAC; 

MOVECOPY(TRUE,CURBLOK 

,X4,Y4);END; 

IF C3SLO-6 THEN BEGIN 

PMCZAC; 

MOVECOPY(FALSE,CURBLO 

K,X4,Y4);END; 

IF CISLO-8 THEN PRLINETYPE; 

IF CISLO-11 THEN PRZOOM; 

IF CISLO-12 THEN PRPAN; 

IF CISLO-15 THEN PRSAVE; 

IF CISLO-lF THEN PRLOAD; 

UNTIL FALSE; 

END. 


Vypis 2. Program ZCF (929-V2) 


PROGRAM A; 

CONST PBLMAX-60; 

POCPRIK-23; 

JMCELKEM-83; 

OFFSET-*C350;TOPMEM-*EA00; 

TYPE LINET-RECORD 

X,Y:INTEGER.END; 

ARCT-RECORD XC,YC,XS,YS,A,U:INTEGE 
R;END; 

TEXTT-RECORD VELIKOST:CHAR;XP,YP:] 
NTEGER.T:ARRAY(1..51 OF CHAR;END; 

C® JT-(LINE,ARC,'TEXT,BLOK); 

UKAZATELE-ARRAY(1..PBLMAX1 OF RE 


RVKY:ARRAY(LINE..BLOKI OF INTEGER; 

P 

OCET:ARRAY[LINE..BLOKI OF INTEGER; 

E 

ND; 

BLOKT-RECORD X,Y:INTEGER;CBL:CHAR; 

END; 






NAMET-ARRAYt1..10] OF CHAR; 
STRING-ARRAYII . .10] OF CHAR 
MALYSTR]NG-ARRAY11., 51 OF CHAR; 

VAR PU NE:L]NET;PARC:ARCT;PTEXT:TEXTT•P 
BLOK:BLOKT; 

PBLAKT:INTEGER; 

UK:UKAZATELE;ENDOF:3NTEGER; 

JMENA:ARRAYM . .JMCELKEM.1. .6) OF CH 
AR; 

C3SRET -.STRING; 

PROCEDURE C3SPREV(C:REAL); 

VAR A,B:REAL;N:INTEGER; 

FUNCTION POMC(B:REAU:CHAR; 

BEGIN 

POMC:-Off? (ROUND((A-(ENTIER(A/B/l0)»10 t0 
*FRAC(A/B)»B))/B)-»-48); 

END; 

BEGIN 

A:-ABS(C);B:-1000.CISRET:-' 

IF C<0 THEN CISRETIII 

FOR N:-3 DOWNTO 0 DO BEGIN CISRET[5-N1= 

-POMC(B);B:-B/10;END; 

CISRETI6J 

FOR N:—1 DOWNTO -2 DO BEGIN CISRETI6-N 
I;-POMC(B);B:—B/10;END; 

END; 

PROCEDURE 0DVYS4 (T: STRING); 

VAR N:INTEGER; 

BEGIN 

FOR N:-l TO 10 DO BEGIN 
P0KE<l6384,T[NI); 

IM. I NE (*3A,0,*40,*CD,*5D,*EC);END■ 

END; 

PROCEDURE 0DVYS5(T:STRING); 

’ VAR N:INTEGER; 

BEGIN 

TM0]:-CHR(13I; 

FOR N:-l TO 10 DO BEGIN 
P0KE(16384,T[N)I; 

INL1NE(*3A,0,*40,*CD,*60,*ECI END- 
END; 

PROCEDURE ODVENT; 

VAR S:STRING; 

BEGIN 

St10]:-CHR(13);0DVYS4(S); 

END; 

PROCEDURE ODVCAR; 

BEGIN 

0DVYS4C, '). 

END; 

PROCEDURE MA(X,Y:REAL I; 

BEGIN 
0DVYS4('MA 

CISPREV(X);ODVYS4(CISRETI; 

ODVCAR; 

CISPREV(Y);0DVYS4(CISRETI; 

ODVENT; 

END; 

PROCEDURE VA(X,Y:REALI; 

BEGIN 

0DVYS4CVA '); 

CISPREV(XI;0DVYS4(CISRETI■ 

ODVCAR; 

CISPREV(Y);0DVYS4(CISRETI; 

ODVENT; 

END; 

PROCEDURE OG(X,Y:REAL); 

BEGIN 

0DVYS4C0G ’); 

CISPREV(XI;ODVYS4(CISRET);ODVCAR;CISPRE 
V(Y);0DVYS4(CISRET);ODVENT, 

END; 

PROCEDURE MF; 

BEGIN 0DVYS4('ff ');ODVENT;END- 

PROCEDURE SC (S: REAL) ; 

BEGIN 

0DVYS4('SC ');ClSPREV(SI,-0DVYS4( 

CISRET);ODVENT,END; 

PROCEDURE LT(L:INTEGER); 

BEGIN 0DVYS4CLT ' I ;CISPREV(L) 0 

DVYS4(CISRET);END; 

PROCEDURE CS(X,Y:REAL); 

BEGIN 
0DVYS4( 1 CS 

CISPREV(X);0DVYS4(CISRET);ODVCAR ClSPRE 
V(Y);0DVYS4(CISRET); 

0DVYS4C; ');ODVENT; 

END; 

PRXEDURE AC(A,B,C:REAL) • 

BEGIN 

0DVYS4CAC ')• 


CISPREV(A); ODVYS4 (CISRET,) ;ODVCAR; 
CISPREV(B);ODVYS4(CISRET ) ;ODVCAR; 

CISPREV(CI;ODVYS4(C3SRET);ODVENT; 

END; 

PROCEDURE SPEED(S:INTEGERI; 

BEGIN 

POKE(*EBAD,S);END; 

PROCEDURE L3^L(X1,Y1,X2,Y2,A: INTEGER) 

VAR N,M.MFX,riFY:INTEGER;m,ri2,XR,YR:REA 

BEGIN 
LT ( 0 ) ; 

IF A-2 THEN BEGIN A;-l;LT(3).END; 

IF A-3 THEN BEGIN A:"l;LT(2);END; 

N:-A MOD 100; A:-A DIV 100- 
Ml:~SQRT(SQR(X2-X1)+SQR(Y2~Y1))• 

IF Ml-0 THEN Ml;-1; 

M2:-(Y2-Y1I/Ml»A»(N-11/2; 

Ml:-(X2~Xl)/Ml»A*(N-l1/2; 

X2:-X2-X1;XR:-X1-M2; 

Y2:-Y2-Y1;YR:-Y1+M1; 

IF N>1 THEN BEGIN Ml:-M1/((N~l)/2) M2:- 
M2/((N—11/2);END; 

FOR M:-l TO N DO BEGIN 
XI:-ROUND(XR);Y1:-R0UND(YR)• 

MA(Xl.YI); 

VA(X1fX2,Y1+Y2); 

XR:-XR+M2;YR:-YR-Mf; 

END; 

END; 

PROCEDURE ARCTL(XC,YC,XS,YS,U,A:INTEGER 

VAR POCUHEL,KONUHEL.PR.PS:REAL- 
M.CAR,VZD:INTEGER; 

BEGIN 
LT(0); 

IF A-2 THEN BEGIN A:-l;LT(3).END; 

IF A-3 THEN BEGIN A:-l;LT(2);END; 

CAR:-A MOD 100;VZD;—A DIV 100; 

PR:-SORT(SQR(XS-XCI+SQR(YS-YC)) 

IF U<0 THEN PR:—PR; 

POCUHEL:-ARCTAN((YS-YCI/(XS-XC+0.01)1- 
IF (XS-XCI<0 THEN POCUHEL.-POCUHEL+3.14 
15?; 

KONUHEL: -POCUHa+U/ 1000 ; 

IF KONUHEL>6.2832 TFEN KCMJHEL :■-KONUHEL 
-6.2832; 

IF ABS(U)>6l?6 THEN KONUHEL.-POCUHEL 
PS:-PR-(CAR-1)/2»VZD; 

FOR M1 TO CAR DO BEGIN 
MA(XC.YC); 

AC(PS,POCUHEL,KONUHEL); 

PS:-PS+VZD; 

END; 

END; 

PROCEDURE TEXTKRES(VELIKOST:CHAR;XP YP: 
INTEGER;T:MALYSTR1NG); 

VAR N:INTEGER; 

VEL:REAL; 

T1:ARRAY[1..10] OF CHAR; 

BEGIN 

VEL:-0RD(VEUK0ST)/2*8; 

T1 ' 

MA(XP,YP) ; 

CS(VEL,VEL); 

FOR N:-1 TO 5 DO T1(NI:-T[N1- 
TH6I: —CHR(13); 

0DVYS5(T1) ; 

END; 

PROCEDURE LDIR(HL,DE,BC:INTEGER)• 

BEGIN 

IF BO0 ThEN BEGIN 

POKE (23600,HL);P0KE (23602,DE);POKE (2 
3604,BC); 

INLINE (♦2A,*30,*5C,*ED,♦5B,*32 *5C -*ED 
,*4B,*34,*5C); 

IlCirE (*ED,*B0) ; 

END; 

END; 

PROCEDURE LDDR(H..DE,BC:]NTEGER)• 

BEGIN 

IF BO0 THEN BEGIN 

POKE (23600, HLI,- POKE (23602, DE); POKE (2360 
4,BC); 

INLINE (*2A,*30,-*50,*ED, *58,*32, +5C *ED 
,*4B,*34,*5C); 

INLINE (*ED,*B8); 

END; 

END; 

FUNCTION POCETPRVKU(BLOK:INTEGER;OBJ:OB 
JT):INTEGER; 


KGIN 

POCETPRVKU:-UK[BLOK I.POCET[OBJI• 

END; 

PROCEDURE POINTERS(BL,M:1NTEGER;OBJ:OBJ 
T); 

VAR N:INTEGER; 

POBJ:OBJT; 

BEGIN 

IF OBJ<BLOK THEN BEGIN 
FOR POBJ:-SUCC(OBJ) TO BLOK DO 
UKtBLI.PRVKYCPOBJ):-UK(BLl.PRVKYIPOBJ 
1+M; 

END; 

IF BL<PBLMAX THEN BEGIN 
FOR N:-BL+1 TO PBLMAX DO BEGIN 
FOR POBJ:-LINE TO BLOK DO 
UKfNI.PRVKYIPOBJ]:-UKINI.PRVKYIPOBJ] 
+M; 

END; 

END; 

ENDOF:-END OF-t-M.- 
END; 

PROCEDURE ADLEN(OBJ:OBJT;VAR N,M:INTEGE 
R); 

BEGIN 

CASE OBJ OF 

LINE:BEG1N N:-ADDR(PLINE);M:-4;END- 
ARC: BEG IN N ■■ -ADDR (PARC); M: -12; END ■ 

TEXT:BEG 3 N N:-ADDR(PTEXT);M:-10 -END; 
BLOK:BEGIN N:-ADDR(PBLOK);M:-5;END 
END, * 

END; 

PROCEDURE hPRVEK(BL,0:INTEGER;OBJ:OBJT) 


VAR N,M:INTEGER; 

BEGIN 

ADLEN(OBJ,N,M); 

LDIR((0-1)tM+UKIBLI.PRVKYIOBJI,N M)• 
END; 

PROCEDURE BLOKKRES(BLK:BLOKT); 

VAR XI,Y1,X2,Y2,M,N,AIP.BL:INTEGER; 
BEGIN 

BL:-ORD(BLK.CBL) ,- 
N:-POCETPRVKU(BL,LINE);M:-1; 

WHILE N>0 DO BEGIN 
NPRVEK(BL,M,LINE); 

IF PL1NE.X-MAXINT THEN BEGIN 
A1P:-PLINE.Y; 

NPRVEK(BL,M-tl .LINE) ; 

XI:-PL 3 NE.X;Y1:-PL JNE.Y; 
NPRVEKia.,M^2,LJNE); 
X2:-PL1^.X;Y2:-PLINE.Y; 
M:-M+2;N:-N-2; 

END 

ELSE BEGIN 

XI:-X2;Y1:-Y2;X2:-PLlNE.X;Y2:-PLINE. 
Y; 

END; 

LINETL(Xl-tBLK.X,Yl-tBLK.Y,X2+BLK.X,Y 

2tBLK.Y,AIP); 

N:—N~1;M:-M+1; 

END; 

N:-POCETPRVKU(BL,ARC);XI:-BLK.X;Yl:-BLK 
•Y; 

IF N>0 THEN BEGIN 
FOR M:-l TO N DO BEGIN 
NPRVEK(BL,M,ARC); 

WITH PARC DO BEGIN 
XC:-XC+X1;YC:-YC+Y1; 
XS:-XS+X1;YS:-YS+Y1; 
ARCTL(XC,YC,XS,YS,U,A); 

END; 

END; 

END; 

N:-POCETPRVKU(BL,TEXT); 

IF N>0 THEN BEGIN 
FOR M:—1 TO N DO BEGIN 
NPRVEK(BL,M,TEXT); 

WITH PTEXT DO BEGIN 
XP:-XP+X1;YP:-YP+Y1; 

TEXTKRES(VELIKOST,XP,YP,T);END■ 

END; 

END; 

N:-POCETPRVKU(BL,BLOK); 

IF N>0 THEN BEGIN 
FOR M:—1 TO N DO BEGIN 
NPRVEK(BL,M,BLOK); 

WITH PBLOK DO BEGIN 
X:-X+X1;Y:-Y+Yl;END; 

BLOKKRES(PBLOK); 

END; 



END; 

END; 

PROCEDURE PRLOAD; 

VAR N,M,DIF:INTEGER; 

NAME:ARRAYM..81 OF CHAR; 

POBJ:OBJT; 

BEGIN 

NAME:-' 

AT(20,0);WRITE!'Name 
’); 

AT(20.5);READLN;READ(NAME); 

NAME(8l.';NAM£I71J';NAME(8I:-'M'; 
T1N(NAME,ADDR(JMENA)+6»(POCPR1K+PBLAKT) 

) ; 

N;-PBLAKT+POCPR]K+1; 

WHILE (N<-JMCELKEM) AND (JMENAlNIo 1 
’) DO N-.-N+1; 

N:-N-1-P0CPR1K; 

NAME(7I^'U'.NAMEtS):-'K'; 
TIN(NAME,ADDR(UK)-H6*P8LAKT); 

D ] F :■-UK [ PBLAKT+11. PRVKY t U NE ]■-ENDOF; 

IF UKIN1.PRVKY[BLOK1+5*UK[N1.POCETfBLOK 
]-D!F<T0PMEM THEN BEGIN 
FOR M:-PBLAKT+1 TO N DO BEGIN 
FOR POBJ:-LINE TO BLOK DO 
UKIM1.PRVKY[P0BJ1:-UKlMl.PRVKYIPOBJI- 
D1F; 

END; 

DIFUKINI.PRVKY[BLOKI+5*UKINI.P0CET[BL 
OKI; 

IF N<PBLMAX THEN BEGIN 
FOR M:-N+l TO PBLMAX DO BEGIN 
FOR POBJ:—LINE TO BLOK DO UKtMI.PRVKY 
[POBJL-D1F; 

END; 

END; 

NAME17]: —'V' ;NAT£[81 :-'S' ; 
TINtNAME.ENDOF); 

PBLAKT:-N;ENDOF:-DIF; 

END 

ELSE BEGIN 

AT(20,0);WR1TE('No memory for file 
’); 

END; 

END; 

PROCEDURE 1N1T; 

VAR N:INTEGER;POBJ:OBJT; 


BEGIN 

FOR N=-1 TO PBLMAX DO BEGIN 
FOR POBJ;-LINE TO S-OK DO BEGIN 
UKtNl.PRVKY[POBJI:-OFFSET; 

UKtNI .POCETtPOBJI :-0; 

END; 

END; 

ENDOF:-OFFSET; 

FOR N:—1 TO JMCELKEM DO JMENAfNI 

OUT (127, CJ-ff? (1 S3) I ; 

PBLAKT:-0; 

END; 

PROCEDURE VYP2SBLOKU; 

VAR N=INTEGER; 

BEGIN 

PAGE; 

FOR N=-P0CPR1K+1 TO JMCELKEM DO BEGIN 
WR1TE(CHR!20),CHR(111; 

WRITEt(N-POCPRIK):2,CHR(20),CHR(0)I;WR 
1TE! JMENAIN));END; 

END; 

PROCEDURE PROVADENI; 

VAR VX,VY,SCALE:REAL; 

MFX,MFY,RYCFLOST,OTC:1NTEGER; 
POCETKB:INTEGER; 

CKB:ARRAY!1..101 OF INTEGER; 

N: INTEGER; 

BEGIN 

REPEAT 

IN1T; 

PAGE; 

REPEAT 

WR1TELN(’Lo.<Hn 3 file for drew!n 3 '1;WRI 
TELN;WRITELN;WRITELN; 

PRLOAD; 

WR1TELNCA1I file* lo.ded ? (Y/N) '); 
REPEAT UNTIL JNCH<>CFR(0); 

UNTIL INCH-'Y'; 

OUT(127,CHR(153)); 

WRITELN!'Peremelr* of drewin 3 ');WR1TELN 

WRITE!'Ori 3 in#I point X.. 'I;READLN;REA 
D(VX); 

WRITE!' Y.. 'I;READLN;REA 

D(VY) ; 

WR1TELN;WRITE!'Sc*le . ');RE 

ADLN;READ(SCALEI; 


WRlTELN;WR]TE('Orieni.iion . ’);RE 

ADLN;READ(OTC); 

WR1TELN;WR1TE('Speed (XI . ');RE 

ADLN; 


READ(RYCHLOST);WR1TELN;WR1TELN!*S«i ori 
qlnel point (0..exii)'l; 

POKE(+EA78,CHR(223I);POKE(*EA7C,CHR<21S 
II;POKE(+EA80,CHR!207)); 

POKE(*EA84,CHR(1??)I; 

IF OTC-3 TFEN BEGIN P0KE(*EA78,CHR(2l5) 

I;POKE(*EA7C,CHR(223)I;END; 

IF OTC-2 THEN BEGIN POKE(*EA78,Ct-R(207) 
);P0KE<*EA7C,CFR(1??)I; 

POKE (*EA80, CW (21S) I; POKE! *£A 
84,CHR(223));END; 

USER (+EC54); 

W; 

fFX:-PEEK(*EC66,1NTEGERI; 
m :-PEEK((MFX+2),INTEGER!;MFX:-PEEK(MF 
X,INTEGER); 

OG(MFX-SCALE*VX,MFY-SCALE*VY); 

SC(SCALE);SPEED(ROUND(12300/RYCH.OSTI); 
VYP1SBLOKU;WR1TELN;WR]TELN; 

REPEAT 

WRITE!‘Nuber of blocks 'I;READLN;REA 
D(POCETKB); 

UNTIL (POCETKB>0) AND (P0CETKB<11); 

WR1TELN.WRITELN; 

FOR N:—1 TO POCETKB DO BEGIN 
AT(20,0);WR]TE(' 

'); 

AT(20,0);WRITE(N,'.... 'I;R£ADLN;READ! 
CKBCN1I; 

END; 

WRITELN;WR]TELN('l »m drewin 3 'I;WR37ELN 

FOR N;—1 TO POCETKB Dd BEGIN 
PBLOK. X: -0; PBLOK.'Y: -0; PBLOK. CBL :--CHR (C 
KBIN1); 

BLOKKRES(PBLOK); 

END; 

WRITELN!'Loed a new file (Y/N)’); 

REPEAT UNTIL INCH<>CHR(0); 

UNTIL INCH-'N'; 

END; 

BEGIN 

PROVADENI; 

END. 
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Ing. Jirf Kohout, Na Svihance 12, 120 00 Praha 2 


V prirucce dodavane s tiskarnou BT 100 je uveden i program pro jeji obsluhu. Delka tohoto programu je 
priblizne IkB, dalsich 500 bajtu zabira vyrovnavaci pamet’ tiskarny. Umoznuje pouziti prikazu LUST 
a LPRINT a.kopii obrazovky. Program v§ak neumi tisknout implicitne definovane graficke znaky a znaky 
definovane uzivatelem v oblasti UDG a v prikazu LPRINT nema prikazTAB pro tabelaci vypisu ucinek. Proto 
byl vytvoren program, ktery uvedene nedostatky odstranuje a navic je podstatjie kratsi. 


Program pro spolupraci tiskarny BT 100 
s mikropocitacem ZX Spectrum je dlouhy 
706 bajtu, pouziva standardnich prikazu 
LLIST a LPRINT (LPRINT i ve spojeni s pri- 
kazem TAB), tiskne vsechny graficke znaky, 
pismo Ize zvolit s normalnim sklonem nebo 
sikme. Typ pisma muze byt zmenen uloze- 
nim vlastniho souboru znaku do RAM a pri- 
slusnou zmenou systemove promenne 
CHARS (zde je ulozena adresa pocatku 
tabulky znaku minus 256). Ukazka ruznych 
typu pisma je na obr. 1. Program tez umoz¬ 
nuje kopii obrazovky, priklad je na obr. 2. 


Jako vyrovnavaci pamet pro tiskarnu je vyu- 
zita cast obrazove pameti (horni tfetina obra¬ 
zovky), ktera pri obsluze tiskarny vStsinou 
nebyva vyuzita; navic je na obrazovce videt, 
co se prave tiskne. 

Tiskarna je pripojena k pocitaci 
pres rozhrani s obvodem 8255 (zapojeni 
bylo v AR jiz nekolikrat publikovano, Ize 
tez pouzit vyrobek Tesly Kolin, ktery je 
prodavan pod oznacenim UR-4). Pro ko- 
munikaci poditac-tiskarna je pouzit kanal C, 
kde bity CO az C3 jsou naprogramovany jako 
vystupni a bity C4 az C7 jako vstupni. 


Nyni strucne k vlastnimu programu (viz 
Vypis 1). Radky 140 az 250 (rutina INIT) 
naprogramuji obvod 8255, do tabulky kana- 
lovych informaci na adresu 23749 (#5CC5) 
ulozi startovaci adresu obsluzneho pro¬ 
gramu (pri prvnim vstupu adresu START1, 
kde se vymaze horni tretina obrazovky, pri 
dalsich vstupech pak adresu START) a na- 
stavi pocitadlo radku. 

Radky 450 az 1060 rozlidi podle kodu 
v registru A o jaky typ znaku se jedna a do 
registroveho paru DE ulozi adresu prvniho 
bajtu znaku. 







Kody mensi nez 32 jsou ignorovany s vy- 
jimkou hodnoty 13 - konec radku, 23 - TAB 
a 20 - INVERSE. Kody 32 az 127 jsou 
standard™ znaky ASCII, adresa prvni'ho baj- 
tu znaku se vytvori na radci'ch 1030 az 1060. 
Kody 128 az 143 reprezentujl implicitne defi- 
novane graficke znaky, znak se tvori pomocl 
rutiny v ROM zacinajici na adrese #0B38. 
Znak je pak ulozen v systemove promenne 
MEMBOT, kde zacina zasobnfkova pamef 
kalkulatoru. Tato rutina je na fadcich 730 az 
750. Kody 144 az 164 urcuji znaky definova- 
ne uzivatelem v oblasti RAM, tuto oblast 
adresuje systemova promenna UDG. Adre¬ 
sa prvni'ho bajtu pfislusneho znaku je urcena 
na radci'ch 680 az 710.165 az 255 jsou kody 
pro tokens, tvorbu jednotlivych znaku zajis- 
fuje rutina ROM na adrese #09F4 (radky 
600 az 610). 

Rutina ULOZ na radci'ch 1070 az 1280 
ulozi jednotlive bajty znaku do obrazove 
pameti, ktera slouzi jako vyrovnavaci pamef 
pro tiskarnu. 

Na radci'ch 1190 az 1280 se kontroluje, 
zda neni prekrocen povoleny pocet znaku na 
radek. 

Na radku 1290 se rozhoduje, zda se znaky 
budou tisknout normalne nebo sikmo. Pri 
tisku sikmych znaku se pred vstupem do 
vlastni tiskove rutiny provede posun jednotli¬ 
vych bitu ve vyrovnav'aci pameti o 1 az 
7 tiskovych bodu vpravo - radky 1520 az 
1760. 

Na radci'ch 1320 az 1500 je volana tiskova 
rutina TISK, po vytisknuti celeho radku je 
vynulovana vyrovnavaci pamef a je testo- 
van pobet vytisknutych radku. Pri prekroceni 
predem nastaveneho poctu se program za- 
stavi a po stisknuti' libovolnb klavesy pokra- 
duje v tisku - radky 1400 az 1500. Vytisknuti 
cele stranky je signalizovano pipanim. 

Rutina na radci'ch 1780 az 1840 vypocita 
_a.dresu prvniho bajtu znaku. Pri vstupu do 
rutiny je v registrovem paru BC adresa za- 
catku prislusne tabulky znaku (v ROM nebo 
v RAM) a v registru A je poradove cislo 
znaku (prvni znak v tabulce ma poradove 
cislo nula). > 

Na radci'ch 1870 az 1940 je vynulovana 
vyrovnavaci pamef. 

Vlastni tiskova rutina TISK zacina na rad- 
ku 1960. Nejprve se provede navrat voziku 
a pak se testuji vzdy dva nad sebou lezici 
mikroradky vyrovnavaci pameti (jeden tisko- 
vy fadek se sklada z osmi mikroradku). 
Pokud jsou oba nulove, posune se dvakrat 
papir v tiskarne a pokracuje se testem dal- 
Sich dvou mikroradku. Je-li alespon jeden 
bajt v nekterem mikroradku ruzny od nuly 


Obr. 2. Ukazka ko- 
pie obrazovky 
(902-2) 



(tzn. ze je treba tisknout), je v registrech 
D a E na radku 2140 pocet znaku zleva, ktere 
je treba vytisknout. Vlastni test se provadi 
rutinou TEST na radci'ch 3070 az 3200. 

ftadky 2150 az 2630 vytisknou cely tisko- 
vy fadek (osm mikroradku). Tiskne se strida- 
ve lichy mikroradek (pri posunu voziku zleva 
doprava) a sudy mikroradek (pri posunu 
voziku zprava doleva). 

Stiskne-li se tlacitko Q, tisk se zastavi po 
vytisknuti celeho tiskoveho radku a provede 
se skok do BASIC (radky 2640 az 2690). 
Zmenou hodnoty na radku 2650 (v instrukci 
CP 81) Ize zmenit klavesu, kterou se zasta- 
vuje tisk. 

Tisk jednoho bajtu provadi rutina na rad- 
cich 2740 az 2930. Bajt je rotovan do indika- 
toru CY bud’ vpravo nebo vlevo v zavislosti na 
smeru tisku (radek 2750). 

Rutina GR na radci'ch 2950 az 3050 prove¬ 
de navrat voziku, rutina PS_PAP (radky 3220 
az 3320) posune papir v tiskarne o jeden 
mikroradek. 

_ Rutiny C60 (radky 3340 az 3400) a C70 
(radky 3420 az 3600) synchronizuji tisk. 
O poloze voziku tiskarny informuji bity 
7 a 6 na portu 95. Je-li bit 7 roven nule, 
vytiskne se jeden bod. Bit 6 slouzi k urceni 
zacatku mikroradku pri tisku zprava i zleva. 

Rutina na radci'ch 3620 az 3660 jemne 
nastavuje synchronizaci tisku svislych car. 

Zmenou hodnoty v registru A. popripade 
pridanim dalsich instrukci NOP Ize nastavit 
presnou polohu vytisknutych bodu. Zalezi na 
rychlosti posuvu voziku, uvedene hodnoty 


vyhovovaly pri rychlosti tisku 170 bodu/s. 
Rychlost voziku Ize nastavit trimrem na des- 
ce motoru (deska je umistena podel pfedni 
strany tiskarny). 

Obrazovku kopiruje program COPY na 
radcich 280 az 400. Nejprve se provede 
inicializace tiskarny a nastavi se sirka tisku 
na 32 znaku/radek. Potom se postupne vy¬ 
tiskne vsech 24 tiskovych radku obrazovky 
(vzdy po vytisknuti jednoho tiskoveho radku 
rutina POSUV na radci'ch 3680 az 4090 
posune do bafru dalsi tiskovy radek), konec 
tisku je signalizovan pipanim a po stisku 
libovolne klavesy se provede navrat do BA- 
SICu. Je-li program nahran od adresy A 
(v uvedenem pripade A=64000), inicializa¬ 
ce se provede prikazem RANDOMIZE USR 
A, pak jiz mohou nasledovat BASIC prikazy 
LLIST nebo LPRINT. Format tisku Ize nasta¬ 
vit ulozem'm prislusnych hodnot na nasledu- 
jici adresy: 


pocet radku na stranku 
pocet znaku na radek 
pismo normal 
pismo sikme 
synchronizace tisku 


POKE A+22, pocet radku 
POKE A+216, pocet znaku 
POKE A+225,0 
POKE A+225,46 
POKE A+626,hodnota 


©brazovka se zkopiruje prikazem RAN¬ 
DOMIZE USR A+-2. 


Program spolupracuje i s assemblerem 
GENS3, obsluzny program pro tiskarnu pak 
Ize zkratit asi na 540 bajtu vypustenim casti 
pro kopirovani obrazovky, tisk grafickych 
znaku a tisk sikmeho pisma. Konkretne se 
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Obr. 1. Ukazka ruznych typu pisma (902-1) 



vypusti radky 40, 50, 110, 120, 230-250, 
280-400, 460-530, 560-590, 640-1010, 
1520-1760, 3680-4090, 4130 a 4140. Po 
tomto zkraceni programu se vsak zmeni 
vyse uvedene adresy pro nastavenf formatu 
tisku; upravu si provede jiz jiste kazdy sam. 


Vypis 1. Obsluzny program (902-V1) 


10 *c- 

20 , BT 100 pro LLI3T , 


23675 

23693 

23606 

23560 

04-000 


5C7B 

40 

UDG 

EOU 

5C92 

50 

HEMBOT 

ECU 

5C36 

60 

CHARS 

EGU 

5C03 

70 

LAST_K 

EOU 

4000 

30 

BAFR 

EOU 


90 



FA00 

100 


ORG 

FA00 

110 


JR 

FA02 

120 


JR 


130 



FA04 

140 

IN IT 

CALI 

FA07 

150 


LD 

FA09 

160 


OUT 

FA0B 

170 


LD 

FA0D 

180 


OUT 

FA0F 

190 


LD 

FA 12 

200 


LD 

F A 15 

210 

INIRAD 

LD 


54-000 
IN XT 
COPY 


A , 154 
(«7F),A 
A , 255 
(95) ,0 
HL,START1 
(ttSCCS),HL 
A , 75 
P o c e t radKu 


FA 17 
FA1A 
FA IB 
FA IE 
FA21 

FA22 
FA25 
FA27 
F A2A 
FA2C 
FA 2D 
FA30 
FA33 
FA34 
FA36 
FA33 
FA3B 
FA3E 

F ASF 
FA42 
FA45 
FA4S 
FA49 
FA4A 
FA4D 
FA4F 
FA51 
FA54 
FA56 
FA53 
FA59 
FA5B 
FA5E 
FA60 
FA62 
FA64 
FA66 
FA63 
FA66 
FA6D 
FA6E 
FA70 
FA72 
FA74 
FA76 


LD 


(P_RAD),A 
A 

CAD_TAB> , A 
(AD_UID) , A 


220 

230 NUL_AD XOR 
240 LD 

250 LD 

260 RET 

270 

280 COPY 
290 
300 
310 • 

320 TCOP 
330 
340 
350 
360 
370 
380 
390 
400 
410 

'420 START! CALL NULBFR 


CALL INIT 
LD A,32 

LD ( R_COPY ) , A 

LD B-,24 
PUSH E-C 
CALL TISK 
CALL POSUU 
POP BC 
DJNZ T COPY 
LD A,59 

LD (R_COPY),H 

CALL KEY 
RET 


430 
440 

450 START 

460 

47© 

4S0 

490 

500 

510 

520 

530 

540 

550 

560 

570 

530 

5Q0 

600 

610 

620 

630 

640 

650 

660 

670 

630 


LD 

LD 

El 

LD 

LD 

CP 

JR 

LD 

CP 

JR 

LD 

CP 

JP 

CP 

JR 

CP 

JR 

CP 

-JP 

CP 

RET 

CP 

JR 

CP 

JR 

LD 


HL,START 
(23749),HL 

E,A 

A,(A0_TAB) 
1 

Z,TflBl 
A,(AD_UID) 
2 

Z,MIDI 
A , E 
13 

Z ,TSK 
017 
Z -TAB 
20 

Z , UID 
165 

NC,O09F4 


123 

C , ZNAK 
144 

C,IMP_GR 
BC,(UDG) 


FA7A 

690 


SUB 

144 

-FA7C 

700 


CALL 

ADR_ZN 

FR7F 

710 

720 


JR 

ULOZ 

FAS 1 

730 

IMP_GR 

LD 

B , A 

FA82 

740 


CALL 

»0B33 

FAS 5 

750 


LD 

DE,HEMBOT 

FAS 8 

760 

770 


JR 

ULOZ 

FASA 

730 

TAB 

LD 

A , 1 

FA3C 

FA3F 

790 

800 

810 


LD 

RET 

( AD_T AB ) ,f 

FR90 

320 

TAB 1 

LD 

D , 0 

FA92 

330 


LD 

A , E 

FA93 

340 


CP 

59 

FA95 

350 


JR 

NC,TSK 

FA97 

868 


LD 

HL,BAFR 

FA9A 

870 


ADD 

HL , DE 

FA9B 

330 


LD 

(AD BFR) ,1 

FA9E 

390 

900 


JP 

NUL_AD 

FAA1 

910 

UID 

LD 

A , 2 

FAA3 

920 


LD 

(AD_UID) , 1 

FAA6 

930 

940 


RET 

HL,AD_INU 

FAA7 

950 

U ID 1 

LD 

F AAA 

960 


LD 

A , E 

F A AB 

970 


CP 

1 

FAAD 

930 


JR 

NZ,TRUE 

FAAF 

990 


LD 

A , 47 

FAB1 

1000 

TRUE 

LD 

(HL),A 

FAB2 

1010 

1020 


JP 

NUL_AD 

FAB5 

1030 

ZNAK 

LD 

BC,(CHARS 

FRB9 

1040 


INC 

B 

FABA 

1050 


SUB 

32 

FABC 

1060 


CALL 

ADR ZN 

F ABF 

1070 

ULOZ 

LD 

B , 3 

FAC 1 

1080 


LD 

HL , ( AD_BF 

FAC4 

1090 


PUSH 

HL 

FAC5 

1100 

ULOZ1 

LD 

A,(DE) 

FAC6 

1110 

AD_INU 

DEFB 
, NOP 

0 

nebo CPL 


FAC-7 
FACS 
FAC9 
FACA 
FACC 
FACD 
FACE 
F AD 1 
FAD2 
FADS 
FAD7 


1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 


(HL) , A 
DE 


LD 
INC 
INC 
DJNZ ULOZ1 


POP 

INC 

LD 


PUSH HL 


HL 
HL 

(AD_BFR),HL 


FAD9 1230 


HL,BAFR 
LD D , 0 
LD E,53 
;pocet z n a K u 
DEC E 


FADA 
FADB 
F ADC 
FADC- 
FADF 
FAE0 


FAE2 

FAE5 

FAE8 

FAEB 

FAEC 

FAEF 

FAF1 

FAF2 

FAF5 

FAFS 

FAFB 

FAFE 

FB01 

FB04 

FB07 

FB0A 

FB0B 

FB0D 

FB0F 

FB 10 
FB 13 
FB 14 
FB 15 
FB 17 
FB 13 
FB 1A 
FB1B 
FB ID 
FB IE 
FB IF 
FB21 
FB22 
FB23 
FB24 
FB26 
FB27 
FB23 
FB2A 
FB26 
FB2D 
FB2E 
FB2F 
FB30 
FB32 

FB34 
FB36 
FB37 
FB33 
FB39 
FB3 A 
F63B 
FB3C 

FB3D 

FB40 

FB43 

FB45 

FB43 

FB4A 

FB4D' 

FB50 

FBS1 
FB54 
FB57 
FB59 
FB5A 
FB5D 
FB60 
FB61 
FB62 
FB65 
FB68 
FB69 
FB6 A 
FB6B 
FB6E 
FB6F 
FB70 
FB72 
FB73 
FB74 
FB7S 
FB79 
FB7B 
FB7D 
FB30 
FB32 
FB35 
FB37 
FB38 
FB3B 
FB3C 
FB3D 
FB3F 
FB91 
FB94 
FB95 
FB97 
FB99 
FB9B 
FB9E 
FB A 1 
FBA3 
FBA5 
FB AS 
FBA9 
FB AB 
FBAC 
FBAF 
FBB0 
' FBB1 
FBB3 
FBB6 
FBB3 
FBB A 
FBBD 
FBC0 
FBC-2 
FBC3 
FBC6 
FBC-7 
FBC3 
FBCA 
FBCO 
FBD0 
FBD3 
FBD4 
FBD5 
FBD6 
FBD9 
FBDC 
FBDE 
FBDF 
FBE2 
FBE3 


1240 
1250 
1260 
1270 
1230 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1330 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 R 
1570 
1530 
1590 
1600 
1610 
1620 
1630 
1640 
1650 F 
1660 
1670 
1630 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1730 f 
1790 
1300 
1310 
1320 
1330 
1340 
1350 
1860 
1370 I 
1330 
1390 
1900 
1910 
1920 i 
1930 
1940 
1950 
1960 ' 
1970 
1930 
1990. 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2030 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2130 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2230 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2330 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2430 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 


TSK 


ADD 

POP 

AND 

SBC 

RET 

JR 


HL , DE 

DE 

A 

HL , DE 
NC 

T_SKI 


, nebo JR ROTACE 


FBE4 2710 OBA_0 CALL PS_PAP 
FBE7 2720 JR SUDY 

2730 

FBE9 2740 T_TISK LD B,8 
FBEB 2750 AD_RL DEFB 0 

2760 ;RLCA nebo RRCA 
2770 


SKI 


CALL 
CALL 
LD 
DEC 
LD 
CP 
RET 
CALL 

KEY LD 

LD 

CALL 

LD 

LD 

CALL 

CALL 

LD 

CP 

JR 

RET 

ROTACE LD 

ROT 1 PUSH 

ROT 2 PUSH 

LD 

ROT3 LD 
SRL 
LD 
JR 
INC 
LD 
SET 
LD 
DEC 

ROT 4 DEC 

DJNZ 
POP 
DEC 
LD 
CP 
JR 
POP 
DEC 


TISK 
NULBFR 
A,(P_RAD) 
A 

(P_RAD ),f 

0 

NZ 

INIRAD 
DE , 157 
HL , 1036 
O03B5 
DE ,411 
HL,715 
O03B5 
O028E 
A , E 
255 
Z , KEY 


HL,0463A 

HL 

HL 

B , 59 
A , (HL) 

A 

(HL) , A 
NC,ROT 4 
HL 

A, (HL) 

7 , A 
(HL),A 
HL 
HL 

ROTS 

HL 

H 

A , 03F 
H 

NZ,R0T2 

HL 

H 


FBEC 
FBED 
FBEF 
FBF0 
FBF1 
FBF4 
FBF5 
FBF6 
FBF3 
FBF A 
FBFC 
FBFE 
FC00 
FC02 
FC03 
FC05 

FC06 
FC03 
FC0A 
FC0B 
FC0D 
FC0F 
FCl'l 
FC 13 
FC15 
FC17 
FC19 

FC1A 
FC ID 
FC IE 
FC IF 


FC20 

FC21 

FC22 

FC23 

FC24 

FC25 

FC26 

FC27 


2780 

2790 

2300 

2310 

2320 

2330 

2840 

2350 

2360 

2870 

2830 

2390 

2900 

2910 

2920 

2930 

2940 


OR 
JR 
IN 
AND 
OUT 
OR 
OUT 

T_BIT1 LD 

djn; 

RET 


LD 
LD 
ADC 
PUSH AF 
CALL C70 
POP 


C , A 
A , 0 
A , A 


2950 CR 

2960 

2970 

2930 

2990 

3000 CR1 

3010 

3020 

3030 

3040 

3050 

3060 

3070 TEST 
3030 
3090 
3100 
3110 
3120 


IN 

AND 

RET 

LD 

OUT 

IN 

AND 

JR 

LD 

OUT 

RET 


AF 
A 

Z,T_BIT1 
A,(95) 
254 
(95) , A 
1 

(95) , A 
A , C 
AD_RL 


A, (95) 
3 2 
NZ 

A , 247 
(95) , A 
A,(95) 
32 

Z , CR 1 
A, 255 
(95),A 


LD (AD_BFR),HL 
DEFB 17 
R COPY DEFB 59 

DEFB 0 ;LD D E,59 

;ne bo‘LD DE,32 pro COPY 


3130 

3140 TST1 

3150 

3150 

3170 

3130 

3190 

3200 


ADD 

DEC 

LD 

OR 

RET 

DEC 

RET 

JR 


HL , DE 
HL 

A, (HL) 
A 

NZ 

E 

Z 

T ST 1 


CP 

H 


3210 




JR 

NZ,ROT1 

FC29 

3220 

PS_PAP 

LD 

A, 251 

JR 

T_SK 1 

FC2B 

3230 


OUT 

(95) , A 



FC2D 

3240 

PS1 

IN 

A, (95) 

LD 

H , 0 

FC2F 

3250 


AND 

16 

LD 

L , A 

FC31 

3260 


JR 

Z , PS1 

ADD- 

HL , HL 

FC33 

3270 

PS2 

IN 

A,(95) 

ADD 

HL , HL 

FC35 

3280 


AND 

16 

HDD 

HL , HL 

FC 37 

3290 


jR 

NZ , PS2 

ADD 

HL , BC 

FC39 

3300 


LD 

A , 255 

EX 

DE ,HL 

FC3B 

3310 


OUT 

(95) , A 

RET 


FC3D 

3320 


RET 





3330 




LD 

HL,BAFR 

FC3E 

3340 

C60 

IN 

A,(95) 

LD 

DE,BAFR +1 

FC40 

3350 


AND 

64 

LD 

(HL) ,0 

FC42 

3360 


JR 

NZ , C60 

LD 

BC,2047 

FC44 

3370 


IN 

A,(95) 

LDIR 


FC46 

3380 


AND 

64 

LD 

HL,BAFR 

FC48 

3390 


JR 

NZ , C60 

LD 

(AD_BFR),HL 

FC-4A 

3400 


RET 


RET 



3410 






FC4B 

3420 

C70 

IN 

A,(95) 

CALL 

CR 

FC4D 

3430 


AND 

128 

LD 

HL,BAFR 

FC4F 

3440 


JR 

Z , C-70 

LD 

B ,4 

FC51 

3450 


IN 

A,(95) 

PUSH 

BC 

FC53 

3460 


AND 

128 

CALL 

TEST 

FC55 

3470 


JR 

Z , C70 

LD 

HL,(RD_BFR) 

FC57 

3430 

C71 

IN 

A,(95) 

INC 

H 

FC59 

3490 


AND 

123 

LD 

C , E 

FC5B 

3500 


JR 

N Z , C 71 

CALL 

TEST 

FCSD 

3510 


IN 

A,(95) 

LD 

HL,(AD_BFR) 

FCSF 

3520 


AND 

123 

DEC 

H 

FC-61 

3530 


JR 

NZ,C71 

LD 

A , C 

FC63 

3540 


IN 

A,(95) 

OR 

E 

FC65 

3550 


AND 

128 

JP 

Z , OB A_0 

FC67 

3560 


■JR 

NZ . C71 

LD 

A , C 

FC69 

3570 


IN 

A,(95) 

CP 

E 

FC6B 

3530 


AND 

123 

JR 

C , MENSI 

FCSD 

3590 


JR 

Z,CEKEJ 

LD 

E , C 

FCSF 

3600 


JR 

C71 

LD 

D , E 


3610 




LD 

A , 7 

FC71 

3620 

CEKEJ 

LD 

A , 200 


HENS I 


LD (AD RL) 

LD A,253 
OUT (95),A 
CALL C60 
LD B,10 

SM_POC CALL C70 

- SM__POC 

HL) 


DJNZ 
UPRAUO LD 

CALL 

INC 

DEC 


T_TISK 

HL 

E 


LICHY 


LI 

ULEUO 


SUDY 


JR 

NZ,UPRAUO 

LD 

B , 255 

CALL 

C70 

INC 

B 

IN 

A,(95) 

AND 

64 

JR 

N Z , R1 

CALL 

C70 

CALL 

C70 

LD 

A , 255 

OUT 

(95) , A 

CALL 

PS PAP 

LD 

E , D 

LD 

D, 0 

DEC 

E 

LD 

HL,(AD_BFR) 

ADD 

HL , DE 

INC 

E 

LD 

A , 15 

LD 

<AD_RL),A 

LD 

A , 247 

OUT 

(95) , A 

CALL 

C60 

CALL 

C70 

DJNZ 

LI 

LD 

A, (HL) 

CALL 

T_TISK 

DEC 

HL 

DEC 

E 

JR 

NZ,ULEUO 

CALL 

CR 1 

CALL 

PS_PAP 

LD 

HL,(RD_BFR 

INC 

H 

POP 

BC 

DEC 

B 

JP 

NZ,SMYC 

LD 

A, (LAST_K) 

CP 

81 

RET 

NZ 

CALL 

IN IT 

RST 

3 

DEFB 

255 


FC73 

FC74 

FC75 

FC76 

FC73 
FC7 A 
FC7B 
FC7E 
FC7F 
FC32 
FCS4 
FC35 
FC37 
FC38 
FC39 
FC8A 
FCSD 
FCSF 
FC-90 
FC91 
FC92 
FC93 
FC95 
FC96 
FC97 
FC93 
FC9B 
FC9C 
FC9D 
FC9F 
FCA0 
FCA3 
FCA5 
FCA6 
FCA3 
FCA9 
FCAC 
FC AF 
FCB0 
FCB1 
FCB3 
FCB4 
FCB7 
FCB9 
FCB A 
FC5C 

FCBD 

FCBF 

FCC0 

FC-C'l 


PQSUU 

PREN 


3630 CEK 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 

3740 P_OBR 
3750 

3760 PREN1 
3770 
3730 
3790 
3300 
3310 
3320 
3330 
3840 
3350 
3360 
3S70 
3330 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4030 
4090 
4100 
4110 
4120 
4130 
4140 
4150 


NOP 

DEC A 
RET Z 
JR CEK 


LD 

PUSH 

LD 

PUSH 

LD 

LD 

PUSH 

LD 

PUSH 

PUSH 

PUSH 

LD 

LD IR 

POP 

INC 

POP 

POP 

DJNZ 

POP 

DEC 

PUSH 

CALL 

POP 

INC 

DJNZ 

POP 

LD 

LD IR 

POP 

DJNZ 

EX 

LD 

LD 

PUSH 

PUSH 

LDIR 

POP 

LD 

LDIR 

POP 

LDIR 

RET 


6,3 

BC 

DE,#5B00 
DE 

HL,44000 

B , 24 

BC 

B , 8 

BC- 

HL 

HL 

BC , 32 

HL 

H 

DE 

BC 

PREN 1 

BC 

B 

DE 

«0E9B 

DE 

B 

P_OBR 

HL 

BC , 32 
BC 

PREN 
DE , HL 
DE,«5B00 
BC , 32 
BC 
HL 

DE 

BC,736 
BC- 


AD_BFR DEFB 0,i 

P_RAD DEFB 0 

AD_TA6 DEFB 0 
AD_UID DEFB 0 




